Placement of tabs for valDOS 


The tab title included should be? cut apart and inserted 
the tabs in the following order; 


* 

valDOS CMOS 

1ocate 

bef ore 

section 

LX 11. 

% 

valDOS system 

1ocate 

ta efore 

section 

LX.111 

# 

File Editor 

3. ocate 

before 

section 

LX IV. 
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Disclaimer of Warranty 
on Computer Programs 


All Valpar International computer programs are distributed 
on an "as is" basis without warranty of any kind. The total 
risk as to the quality and performance of such programs is with 
the purchaser. Should the programs prove defective following 
their purchase, the purchaser and not the manufacturer, distributor, 
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repair. 

Valpar International shall have no liability or responsibility 
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quential damages resulting from the use or operation of such 
computer programs. 

Defective media (diskettes) will be replaced if diskette(s) 
is returned to Valpar International within 30 days of date of sale 
to user. 

Defective media (diskettes) which is returned after the 30 day 
sale date will be replaced upon the receipt by Valpar of a $12.00 
Replacement Fee. 
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L X I,, S t r o 11. i n g T h r o u. g h v a 1 D 0 S 

A brief .look at the features of the valDOS system. 

LX II. valDOS Command Descriptions 

Detailed descriptions of all the valDOS commands. 

LX 111. valDOS Svstern Glossary 

a) The internal workings of valDOS . .. , „ 

b) The system glossary ...... „ „ ., . „ ., „ „ 

c) The command system glossary „„„„„„ . . „ 

d) Error messages and meanings . ..... „ . . „ 


LX IV. 

valDOS 
User s 

File Editor 
man ua1 f or the va1D0S 

f i 1 e 

L X V „ 

valDOS 

I Supplied Source listing 

LXVI., 

valDOS 

II Supplied Source lie 

t i nq 
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Until now, one of the major drawbacks of F'ORTHs for Atari 
was that you could could either save code on screens or in DOS 
•files, but not both. The demand to have both brought on the 
development of this two-disk package — valDOS. 

With valDOS you can load FORTH screens .just, as before. or 
you can load FORTH source from standard Atari DOS files. But 
this package aliows much more than that. A eomp1 ©te fi1e 
editor is supplied which can be used to edit FORTH (or 
assembly. Pascal, etc.) source code and save it in DOS format. 

To use this package to its fullest, at least 32K of memory 
should be available. If you have less than 32K, don’t worrv. 
if just means that you can’t load all of the commands at once. 
The package is broken into six major parts: 

1) valDOS (approx i mate! y 3.6K compiled) 

2) va1 DOS extension s 

3) Basic DOS commands (keyboard entrv only) 

4) DOS command extensions 

5) F o rm a 11 e r / c opj. e r s 

A) File editor 


We shall begin this stroll by taking a look at the first 
five parts. Before starting, duplicate both master disks 
(we’ll be modifying the valDOS II copy). Insert your valDOS I 
disk in drive one and list screen 170 by typing 170 L. 1ST 
Look for the line that says DOS COMMAND EXTENSIONS and load 
them in. I his should take a few minutes. There are so many 

c O m i m a n d s w i. t h s o m a. n v v a r i a t i o n s o n e a c h t h a t o n J. v t h e 

highlights of the package will be discussed here. Each of the 
commands is explained in detai1 in section LXII. 

Insert your copy of the valDOS II diskette. Type DIR and 
press the return key. You should see the following on your 
display: 


Files on: valDOS . disk II 
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St.roI 1 j. ng Thru val DOS 


appended to it. It is possible to string as many -files 
together as desired. We’re not quite through yet. If we were 
to enters 

‘COPY FI LE2= X BOOT.4TH 

FILF2 would contain an exact copy of XB00T.4TH. However, if we 
t v d e d s 


C 0 P Y F IL E 2 / A -- X B 0 0 i . 4 T H 

XBOOT.4TH would be appended to whatever was alreadv in FILF2, 
namely FILE IT. 4TH + DOCLISTS. 4TH. Of course, also legal is:. 

C 0 P Y F IL. E 2 / A •- X B 0 0 T „ 4 T H. A S SM „ 4 T H 

aui.i all. of the original -files would be contained in FILE2. 
tint or tun a tel y, FILES’ is FORTH source, but does not have the 
Intension 4 ! H ( :i. t is not. needed, but desirable). The RENAME 

Like the COPY command, the format for RENAME is "new=old". For 
some, typing a long name like RENAME might be a chore. Since 
w e a r e a r e i n I- uRTH, w e c a n e asi I. y c u st omi z e: 

“ REN RENAME ; 


ilow that we have some more files to work with, fvnp 

DIR F' l< 
and DIR pt. 

Notice the d:< -ffer enct? In the first example, the remainder of 
the filename is wild, while in the second example, the -files 
must end wish a null eif^ensi on, 

1 1 w-: want to keep the file FI LEI from being modified in 
any wav, we can Lock it using the LOCK commands 


DCK 


i Li 


"1 h 

a. r q u {>! g? n 


LOCK <and 


UNLOCK and KILL) command can take several 

y commas: 


!■ I L.E 1 , MYFI! . I , ASSM , 4 1 FI , F # . 4TH 


I n t h i s c a s e „ 
bei no v-ien , e>: i stent 
ver i f i c at i. on prompt 
s p e c i -f i c a t i o n ! - 1,, 4 T H, 


LOCK wou 1 d 1 oc k F I L.E 1 „ 

1 o c k A S S l v l, 4 T H. a n d 

be f ore 1 oc: ki ng anv f i 1 e 
irv the following two ex 


r e p o r t M Y FIL. E a s 
then issue a 
that matches the 
amp1ess 


S t r o 1I i n a T hu v a 1 D 0 S 


LOCK He, 4"I t-! 

LOCK He. 4TH/N 

In the -first form, a verification prompt is issuer 
each file before it. is locked, while in the second form, 
verification message is not displayed. The /N switch s- 
for "No ask" or "No verify". 

Both KILL, and UNLOCK have exactly the same argument 
as LOCK, Use caution when using the /N switch with the 
command. 

If we want to get a listing of a text file, we use 
PI -'< 1N ! command . For examplei 

PRINT FILE--1 IF. 4TH 
we get " 


:i f or 
the 
lands 

1. :i. s t 
K I Li.. 

t. h e 




St r d 11 i n g T h r u va I DO'S 


File: D1:FILEIT.4TH 
0001 

0002 < Routine: FILE-IT 
0003 

0004 The following routine will 
0005 transfer a specified range of 
0006 FORTH screens to a file on 
0007 a DOS formatted disk. 

0008 

0009 Format.: FIL.E-17 1 st, 1 ast, f i 1 ename 
0010 FI L.E -1T 10 „ 20, MYFILE 

0011 

0012 Note that DOS commands tend to be 
0013 3. onq because of er r or chec k i nq and 


0014 parameter parsing., > 

0015 
0016 

0017 : FILE-IT DOS ( -. ) 


0018 6ETARGS 7WRGARG 44 GETARG 2WRGAR6 
0019 GETVAL SWAP 44 GETARG 7WRGARG 

0020 GETVAL SWAP <ROT OVER - 1 + 

0021 PAD DUP 1 AMD - BURBOT' OVER - 

0022 B/BUF / 3 PICK B/SCR * OVER > 

0023 IF 

0024 CR „ " Too many screens,, " 

0025 B/SCR / . max„" CR 

0026 2DROP 2DROP 

0027 ELSE 

0028 DROP < ROT 0+S 

0029 DO 

0030 16 0 

0031 DO 

0032 I 3 (LINE) 

0033 -TRAILING >R OVER 

0034 R CMOVE R 2 + 

0035 155 OVER C! 1+ 

0036 LOOP 

0037 LOOP 

0038 PAD DUP 1 AND - SWAP OVER - 

0039 FLUSH INSDST ROT DUP (ENTER) 0= 

0040 IF FLEX ST OS KERF; - 7SYSERR END IF 

0041 (OPEN) 2SYSERR SWAP DROP >R 

0 O 4 2 R (W RIT E) ? S Y S E R R 

0043 R (ENDF) 7SYSERR 

0 O 4 4 R > (C L 0 S l£) 

0045 ENDIF 

0046 CR ; 

004 7 

0048 FORTH 
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The PRINT command has several options. If the switch /N 
(no line numbers) is present ? the file is displayed without 
line numbers. If an optional starting line number is supplied,, 
p r i n t i n a b e g i n s a t t h a t 1 i n e; 

PRINT PILEIT.4TFI/N,17 

This will print the file starting with line 17, and with 
no line numbers. Note that the listing mav be aborted at. anv 
time by pressing one of the yellow console keys. 

f he PR I NT command is ideal for displaying text files, but. 
is utterly useless for listing a binary or data file. For this 
reason, the command FDUMP (file DUMP) has been supplied,, Let's 
t r y P D U M P o n FIL E 1T. 4 T H 5 

FDUMP FILE IT.4!H 

Files 01; F'l LEI ! „ 4TH 
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F L 0 A D D 0C L. IS ! S „ 4 7 H 

and the routine D0CI...ISIS should now be in the dictionary. There 
is a nice feature to the FL.0AD command * 

FORGE T DOCL IS IS 
ON ECHO 

FLOAD DOCLISTS.4TH 

Notice that this time the file was echoed to the displav as it 
was being loaded. Like the PRIM! command, FLOAT) can take an 

optional starting line so that loading can begin mid. file. 

Holding down a console Lev wi11 abort a load once the current 
defin 1 1ion is comn i1 eg„ 

If you have a source file which is physical 1v contained 
two or more files, they can be linked together usinn the FLOAD 
command, For example, F'ARl 1„4TF! cou.3 d end with an 


L X I 




S t r o 3.3.3. n g T h r u v a 3. D 0 S 


I-LOAD PARTS.4TH, and part 2 could end with FLO AD PARTS. 4TH. etc. 
in this way, a multi-part file could be loaded. Although this 
method works, it should be avoided for several reasons. One 
reason is that if any of the files are renamed, or if they are 
moved to a different, drive, each of the original files may have 
to be edited to change the FLOADs. A second and more 
complicated reason is that for each file FLOADed this wav, a 
separate file buffer needs to be allocated. The default number 
of file buffers is four, therefore no more than four files can 
be chained. 

The solution to this problem is to create a file which 
c o n t a i n s n o t h i n g b u t F L 0 A D s: 

File; ALLPARTS.4TH 

'■•’OOl FLQAD PART1.4TH ( load in the ??? routines ) 

0002 FLQAD PART2.4TH ( load in the ??? routines ) 

0003 FLQAD PART3,4 TH (...) 

This method requires exactly two file buffers and allows 
f i 3. e n a m e s t o b e c h a n g e d e a s i 3. v,, i f d e s i r e d. 

Fl'vis was just a brief stroll through the val DOS package, 
there are many powerful commands left to explore. the 

f o3.3. owi ng sec t i on a n command wor ds e x p 3. a i ns ea c h command i n 
detail. Read through this section carefully and out the 
commands on a test disk. And then there is the File Editor, 
with its own set of documentation, in section LX IV, 

Have fun. 
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Fi !e: D2s VERIFY,, 4 T'H 
000 i 

0002 ( Routine; Write w/o verity 

0003 

0004 The following routine allows write 
0005 operations to the disk without 
0006 read verification. This speeds up 
0007 disk access by many times. Note 
0007 t h a t o n c: e t h i s r o i j. t ine is 1 o a d e d, 

0009 it may not. he -forgotten! 

00 l. 0 

0 01 :! F o r m a 1 .1 G N V F R1F Y 
001? OFF VERIFY 


0014 

0015 BASE 0 HEX 
0016 ASSEMBLER 
001 7 

0018 LABEL. --DSK 


0019 

AD C , 02 

C, 03 

C, C9 C, 

52 

C 

0020 

D0 C, 05 

C, A 9 

c. 40 C, 

4C 

C 

0021 

HERE 4 + 

„ A 9 

C, 80 C, 

8D 

C 

0022 

03 C,. 03 

C, A 9 

C, 31 C, 

81) 

C 

0023 

00 C, 03 

C, A 9 

C, 07 C. 

8D 

c 

0034 

06 C, 03 

C, A 9 

l:, 80 c, 



(/; f/i "V> ,r ~, 

( or 00 C 

: .. f or 

Percom?) 

SD 

C 

00 

08 C, 03 

C, A 9 

C00 c, 



0!- ; > ?7 

( or 01 C 

for 

Per com ?) 

8D 

C 

0028 

09 C, 03 

fl , 70 

C, 59 C, 

E4 

c 

0(129 

if; 0 C; 





0030 






0031 






0( >32 






00 ; 

VERIFY 




( 

0034 

0# 7 * 50 

! + 




0035 

C . DISK 

7 + ] 

1 



r/j i'i 7/-, 

LITERAL. C 

1 1 n 

•» 





(/) (/} .3 '7 

0-038 .DSL: --DISK 2 7 + 1 

0039 

0040 BABE 1 
004 .1. 




Command Ulor~ds 


Introduction and Conventions 


The valFORTH Disk Operating System can be broken into 
two distinct categories. The first contains the svstem 
words which are for use within running programs and are 
rarely typed directly at the keyboard. The second 
category contains "command" words which were designed to 
be executed only at the keyboard. Typical command words 
are those that list, the directory of a disk or delete a 
fi1e f r om t he disk. 

Commands words differ from normal FORTH words in that 
all necessary arguments are entered following the command 
word,, For example, to remove a file from a directory. we 
would types 

KILL UNWANTED.FIL 
instead of the usua1 FORTH-1 1 kes 
" UNWANTED.FIL" KILL 

which will not work as—is. The only restriction placed on 
this method of input is that absolutely no blanks must 
appear within the command list since the blank serves to 
indicate the end of that list. Thus,, 

l< ILL FILE 1, FI L.E2, FI I...E3 

would properly kill the three files specified while 

KILL. FI LEI. FILE2, FILE 3: 

would kill the first file and then abort, with an error. 

In the command descriptions that follow, any portion 
of the command format enclosed by the braces "{" and 
is optional and need not be entered. 

Additionally, some of the commands may be aborted fov 
pressing one of the yellow console keys found on the far- 
right of the keyboard. Those commands which have this 
f eature are i ndicatecJ bv the sentences 

" ! h i s c ommand i s i n t er r up t ab 3. e " 

All commands and arguments must be entered in upper case,. 
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CLOSE 

Re 1 e a.s e file b u f f e r and updat e f i 1 e . 
STATUS; 

User memory at PAD is untouched. 

COMMAND FORMAT; 

CLOSE CfilenumJ 


OPERATION; 

The CLOSE command flushes the file buffer (different from 
the FORTH disk buffers), if updated, associated with the 
specified file number. The disk buffer is then released for a 
subsequent open (see OPEN). Any future references to the 
specified tile number are ignored until another OPEN command 
re-assxgns it. If a file-number is not specified, or if it is 
zero, all open files are closed. 


EXAMPLES; 

CLOSE 

C1 ose a 1 1 op en f i 3. es „ 
CLOSE 0 

Close all open files. 
CLOSE 2 

Close file number two. 


NOTES; 
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valDOS commands 


COPY 


Transfer the contents of one or more -files to another file. 


STATUS: 

User memory at PAD is untouched. 


COMMAND FORMAT: 

COPY out filet/A>=infilei C ,infi1 e2C,... >> 


OPERATION; 

The contents of "infilel" are transferred to "outfile." If 
it does not already exist, "outfile" is created. If the /A 
switch is present, the input file is instead appended to the 
output file. All additional input files are appended to the 
current output file in the order in which they appear. Single 
drive users should also see FMOVE. 


EXAMPLES: 

COPY MYFI L.E „ BAK-MYFI L...E 

Transfer contents of MYFILE to MYFILE.BAK on the 
default drive unit. (see SET UNIT) 

COPY D.2: PART 1 / A=PART2 

Append the file PARTS found on the default unit 
to file PARTl found on unit two. 

COPY A L. L P A RTS=P A R T 1, D3: PARTS, PART 3 

Transfer the contents of PARTI to ALLPARTS, then 
append PART2 on unit three to the new file ALLPARTS, 
and finally, append PART'3 to ALLPARTS. 


NOTES: 

In the event that an error occurs, the output file mav be 
left open and should be closed using the CLOSE command. 
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DIR 

Displav list of files on disk. 

STATUS: 

User memory at PAD is untouched. 
This command is interruptable. 

COMMAND FORMATS: 

DIR -Ifilespecl 
DIR unit 


OPERATION; 


The DIR command lists all files within the directory on 
the default, drive unit unless an optional file specification or 
drive number is specified. If the optional filespec is 
specified, it must, resolve to a legal filename or else an error- 
will result. Likewise,, if the? optional unit specification is 
supplied, it must be a number from 1 to 4 inclusive. The DIR 
command also displays the current number of free sectors. Note 
that the size of a file displayed in the listing is not 
necessarily accurate unless that, file is closed. However, the 
number of free sectors on disk j.s always accurate. 


EXAMPLES: 


DIR 


list, information about all files 
•f o u n d o n t h e d e f a u 11 u n i t 


DIR MVFILE 


list information on MYFILE found 
on the default unit. 


DIR D2:*.4TH 


list information on all files with 
the extension 4TH found on unit two. 


DIR 


list information about a11 fi1es 
found on unit three. 


NOTES: 

If the DIR command is given within a file that is to be 
loaded, a filespec or unit must, be specified. Thus the 
first example above must, be; DIR % 
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valDOS commands 


DXSKCOPYn 

Du.p 3. i c a t. e an e;-; i st i ng d i s k e t1 e „ 

STATUSs 


P AD i s mod i f i ed. 


COMMAND FORMAT; 


DJ.SKC0PY1 single-drive copy 

DISKC0PY2 multi-drive copy 


OPERATION; 

DISKCOPY1 is for users with only one disk drive. DISKC0PY2 
is for users with two or more drives. 


EXAMPLES; 

DISKCOPY1 

Copy a disk using only drive one. The user is 
prompted to insert the source diskette, and then 
t h e desti n a t ion d i s k e 11 e.. T h i s i s r e p e a t e d 
until the entire source diskette is duplicated. 

DISKCOPY2 


The diskette in unit one is copied to the 
d i s k e 11 e i n u n i t t w o „ 


NOTES 




valDOS Commands 


eo i nr 

Edit, a (FORTH) source file. 


STATUS; 


PAD is modified. 


COMMAND FORMAT; 

EDIT i nfile C. out;f i 1 e> 


OPERATION; 


The input file is read into memory beginning at PAD where 
the editor is used to modify it. Upon leaving the editor, the 
modified file is written to the output file. if specified, 
otherwise it. is written back to the input file. See the val DOS 
File Editor documentation in section LX IV for further 
information. 


' EXAMPLES; 


EDIT MYFILE 

Edit the file MYFILE on the default drive unit and 
write the modified version back to MYFILE:, 

ED IT D1;PACMAN„4TH,D2;PACMAN,4TH 

Edit the file PACMAN. 4 TEI on unit, one and write the 
resultant file into file PACMAN.4 IN on unit two. 


NOTES; 
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ENDF I L_ 

End-file at current file cursor posit.ion„ 


STATUS; 


User memory at PAD is untouched. 


COMMAND FORMAT; 

ENDFIL filenum 


OPERATION; 


The current file cursor position within the specified file 
is marked as the new end of that file. All data after that 
point in the file is lost and any disk space used by lost data 
is reclaimed,, 


EXAMPLE; 


ENDF IL. 2 

End-file file number two. 


NOTES: 

Care should be taken if this command is used on a file 
that is open under more than one file number. 
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va.1 DOS Commands 


EOF 

Move the file cursor to the end of the file. 

STATUS; 

User memory at PAD is untouched. 

COMMAND FORMAT; 

EOF filenum 


OPERATION; 

The cursor of the spec 1 + i ed f i 1 e i s reposi t i oned at. the 
end of the file. The file must already be open. 


EXAMPLE; 

EOF 1 


Position the cursor of file one at the end of that 
•f i 1 e« 


NOTES; 



valDOS commands 


ENTER 

Enter (create) a -filename in a disk directory. 


STATUS: 


User memory at PAD is untouched. 


COMMAND FORMAT; 

ENTER filename 


OPERATIONS 

The specified filename is entered into the indicated 
directory. The filename must not already exist or an error 
will result. The file is created, but is not opened. Although 
this command is usually called CREATE, that word already exists 
m FORTH. 


EXAMPLES; 


ENTER MYFILE 

Enter the filename MYFILE into the directory on 
the defau11 drive unit. 

ENTER D2: INVADERS. 4 i l l 

Enter the filename INVADERS,4TH into the directory 
on unit two. 


NOTES 
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FDUMP 

Perform a hex/ASCI I dump of a file„ 

STATUS: 

User memory at PAD is untouched. 
This command is interruptable. 


COMMAND FORMAT: 

F D U M P f i 3. en a m e C / W1 


OPEPATI ON: 

The specified file is displayed as a sequence of hex 
numbers and ASCII equivalents. This is typical 1v used for 
looking at machine language programs stored on disk,, Normal 
output is 8 bytes per line, however, if. the /W (for "wide") 
switch is present, 16 bytes per line are displayed, which is 
more suitable for printed output,, 


EXAMPLES: 

FDUMP MYFILE.OBJ 

Dump the file MYFILE.OBJ to the current output 
d e vie e. Ei g ht b y t e s / 1 i n e a r e d i s p 1 a y e d „ 

FDUMP MYFILE„OBJ/W 

Dump the file MYFILE,, OBJ to the current output 
device, 16 byt.es/Iine are displayed, 

NOTES: 
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F 7 I I_EE 


I T 


Transform FORTH screen -format to DOS file format 


STATUS: 


PAD j. s used . 


COMMAND FORMAT: 

FILE-1T sc r 1.,, scr 2, f i 1 ename 


OPERATION: 


The screens from scrl to scr2, inclusive?, are read into 
free memory- The DOS disk is then swapped into the drive and 
the screens are written to the 'specified filename- 


EXAMPLES: 


FI LE-1T 50 - 60, MY CODE!. 4TH 

Screens 50 through 60 are read into free memory. 
The user is then prompted to insert the DOS- 
format disk into the drive- The data is next 
wr i 1 1. en t a t h e f i 1 e MYCODE. 4TH- 


NOTES: 
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F^l_OAD 

Compile a FORTH source file from disk. 

STATUS: 

PAD is moved by compilation as usual. 
This command is interruptable. 


COMMAND FORMAT: 

FLOAD fi1ename{/C} 

F L 0 A D f i. 1 e n a m e \ , linen u m > 


OPERATION: 

The FLOAD command sends the FORTH source code contained in 
the specified file to the valFORTH compiler. If the /C (for 
"continue") switch is given, loading begins at the beginning of 
t h e 1 a s t 1 i n e ed i t ed i n t h e f i 1 e e d i tor. T h :i. s a 11 o w s 1 o a d 
errors to be fixed and compilation to be continued mid-file. 

I f t. h e o p t i o n a 1 1 i n e n u m b e r is pr e s e n t.loading pr o c e e d s f r o m 
that 1 me of t:.he file. 

EXAMPLES; 

FLOAD MY GAME„4TH 

Load the DOS file MYGAME.4TH from the default 
dr i ve u.n i. t. and comp i 1 e i t. „ 

F LOAD D2:CYCLOPS/C 

Load the DOS file CYCLOPS from unit two starting 
with the last line edited in the file editor. 

FLOAD FORTRAN. 41H50 

Load the DOS file FORTRAN.4TH from the default 
un i t beg i nn i ng wi t h t he 501 h 1 i n e i n t he f i. 1 e» 


NOTES: 

It is possible to LOAD a screen from a. file being FLOADed 
and vice versa. Usually. LOADing and FLOADing should done from 
different units. Also see ECHO command. 
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F^MOV'E 

Single drive interdisk -file transfer 


STATUS; 


Memory at PAD is used. 


COMMAND FORMAT; 

FMOVE out f i 1 e= i n f i 1 e 


OPERATIONS 


The FMOVE command is -for those users who have access to 
only one disk drive. It is used to transfer a DOS file from 
one disk to another. If infile is too large to fit in 
available free memory, multiple disk, swaps must be made. FMOVE 
will prompt for all necessary inputs, and swaps. 


EXAMPLESs 

FMOVE MYFILE.BAK-MYFILE 

Transfer contents of liYFILE to MYFILE.BAK. MYF I LE 
is read into free memory, source and destination 
disks are then swapped, and the data stored in free 
memory is written to MYFILE.BAK. 


NOTES; 

Multi—drive 
purpose. 


use the COPY command for this 


user s 


can 
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FORMAT 

Format, a diskette tor use. 


STATUS; 


User memory between PAD and BIJFBOT is untouched. 


COMMAND FORMAT; 

F 0 R M A T C u n i t } 


OPERATION; 

The FORMAT command initializes a disk for use with valDOS. 
If a unit number is supplied,, formatting will be attempted on 
that unit,, otherwise the default unit is assumed. The command 
will issue verification prompts and will also allow sectors to 
be locked so that no file will ever occupy those sectors. This 
feature allows mixing FOR IH screens (virtual memory) and files 
on a single disk,, The vaiDUS II disk is an example of this. 
Ibis command also allows the newlv formatted disk to be named. 


EXAMPLES; 

FORMAT 

Format the default drive unit. 
FORMAT 2 

F o r m a t u n i t t. w o „ 


NOTES; 


This command replaces the one found on the va1FORTH 1.1 
See NAMED I Sl<. 


d i s k 
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FSPACE 

Move the tile cursor relative to its current position. 


STATUS; 


User memory between PAD and BIJFBQT is untouched. 


COMMAND FORMAT; 

FSPACE f i. 1 enum, count 


OPERATION; 


The cursor of the specified file 
offset. specified by count. The file 
32767 bytes in either direction, with 
toward the beginning of the file. If 
file cursor is left untouched. 


is moved by the signed 
cursor may be moved up to 
a negative count spacing 
the count is zero. the 


EXAMPLES; 

FSPACE 1,123 


Move the cursor of file one 123 bytes toward the 
end of the file. 


FSPACE 


45 


Move the cursor of file two 345 bytes toward the 
star t o f t. h e f i 1 e „ 


NOTES; 


Spacing backward is generally much slower than spacing 
forward due to the manner in which data is stored on disk. For 
this reason, backward spacing should be? avoided. 
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valDOS Commands 


Remove files and release disk space. 


STATUS: 


User memory between PAD and BURBOT is untouched. 


COMMAND FORMAT: 

KI!.... L f i 1 e s p e c 1 C / N } C, f i 1 e s pec 2 < / N } 


OPERATION: 

The KILL command removes the specified files from the 
specified unit. If no unit is given in the file specification, 
the default unit is assumed. If the? filespec is unambiguous 
<i . e. f no wild cards), no verify prompt, is issued. If the 
filespec is ambiguous, a verify prompt, is issued for every file 
about to be deleted unless the /N switch is present. 


EXAMPLES; 

KILL THIS 

Delete file THIS on the default drive? unit. 

I< I LI... PAR T 1, PARTS, PARTS, D3 s PART? 

Remove files PART1, PARTS, and PART3 from the 
default, unit, and all files found on unit three with 
five letter names that begin with PART. 

KI L.L t BAS, * BAK /N „ .02; MYFI I....E, TEST. * / M 

Remove all files on the default, unit with the 
extension BAS giving verify prompts. Remove all 
f i 1 e s w i t h t h e e x t. e n s i o n B A K w i t h o u t. v e r i f v 
prompts. Delete MYFILE on unit two, and all 
files named TEST on the default unit.. 


NOTES 
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LOCK 

Write and modify-protect files on disk 


STATUS: 


User memory at PAD is untouched. 


COMMAND FORMAT: 

LOCK f i 1. espec 1 C /N> C, f i l espec21 /N> J 


OPERATION: 

The LOCK command protects the specified files from being 
modified in any way. If the filespec is unambiguous (i.e., no 
wild cards), no verify prompt is issued. If the filespec is 
ambiguous, a verify prompt is issued for every file about to be 
locked unless the /N switch is present. 


EXAMPLES: 

LOCK 1)2: * 

Lock all files on unit two, with prompts. 

LOCK FILE7/N,PARTI.PART2 

Lock all files with five letter names that start 
with FILE, without, prompts. Lock PARTI and PART2. 

LOCK *. 4TH, D2: MYFIL.E, PRQG#/M 

L o c. k a II f i 1 e s w i t h the e t e n s i o n 4 T H q i v i n g 
verify prompts. Lock MYFILE on unit two, and 
all files beginning with PROG on the default unit, 
wi t.hout. prompts. 

NOTES: 
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NAMEDXSK 

Name a diskette. 


STATUS: 

User memory at PAD is untouched. 

COMMAND FORMAT: 

NAMEDISK {unit} 


OPERATION: 


The valDOS file system allows disks to named for 
identification. Currently, this name is displayed only in 
directory listings. but is available for user programs. The 
NAMEDISK command displays the name of the disk in the specified 
unit and prompts for the' new name to be entered. Disknames may 
be up to 20 characters long, and any character may be included 
w i t h i n t h a t n a m e 


EXAMPLE: 


NAMEDISK 


Rename the disk in unit three. 


NOTES: 


Disks named 
DOS's for the Atari 


in valDOS 
computers. 


w i. 11 


f u n c t :i. on p r op er .!. v i n ot h e r 
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OPEN 

Open a file for access. 

STATUS: 

User memory at PAD is untouched. 


COMMAND FORMAT; 

OPEN filename 


OPERATION: 

The OPEN command assigns a buffer area and a file access 
number to the specified file. 


EXAMPLE: 


Open TEST.4TH 

Opens the file TEST.4TH on the default unit,, 


NOTES: 


Files may be multiply open,, but. are logically different 
files as far as the? DOS is concerned. If a file is opened more 
than once and an operation such as ENDFIL is given, it is 
possible that the other opens will contain data in their 
transfer buffers that, technically no longer exists. Note also 
that disks should not be exchanged when there are files open on 
the disk. 
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vaID0S Commands 


OPEN'? 

List all files currently open. 

STATUS; 

User memory at PAD is untouched, 

OPERA'!' I ON; 

All files currently open are displayed along with 
a s s oc i a t. ed f i 1 e ac c e s s n u mb ers. 

EXAMPLE; 

OPEN? 


thei r 


NOTES; 
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F>FE I NT 

Display a text -file on the current output device. 


STATUS! 


User memory at PAD is untouched. 
This command is interruptable. 


COMMAND FORMAT; 

PR I NT f i 1 ename •!.' /N> {, 1 i nenumJ 

OPERATION: 

The contents of the specified file are sent, to the current 
output device. Each line of text is automatically numbered 
unless the /N switch is present. If the optional line number 
specification is supplied, printing will begin with that line 
of the file. 

EXAMPLES: 

PRINT GALAXY.4TH 

Print the file BALAXY.4TH with line numbers, 

PRINT EDITOR.4TH/N 

Print, the file EDITOR, 4TH without line numbers. 

PR I NT D2 s M YFI L..E» T X T,, 56 

Pr i n t the f i 1 e MYFIL.E. T X T on un i t t wo w i t h 1 i ne 
numbers, beginning with the 56th line of text 
in the file. 

NOTES: 


1 
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READ 

Read a file into memory. 

STATUS; 

User memory between PAD and BUFBOT is untouched. 


COMMAND FORMATS; 

READ filename,ad dr es s(,cd u n t > 
READ fi1enum.address !,count) 


OPERATION; 

In the first form, the specified file is opened and the 
first "count" bytes are read into memory starting at the 
address specified. If the count is not. specified, the entire 
file is read in. The file is left closed. In the second form 
of the command, the first "count" bytes of the already opened 
•file are read into the specified address. The file is left 
open after the read is complete. Note that the address can be 
specified by a number or by a single word (such as PAD) which 
retur n s a n umber. 


EXAMPLES; 

READ DRIVER.OBJ,PAD 

Read the entire file DRIVER,, OBJ into the address 
specified by PAD. The file is then closed. 

R EE A D 1,409 60 , 1.000 

Read the first 1000 bytes from the file specified 
by the file access number one into address 40960. 

The fi1e is 1eft open„ 

NOTES; 

No check is made to see if the data is being read into 
memory occupied by the FORTH dictionary. DOS buffers, or video 
memory. It is up to the user to supply safe load addresses. 





valDOS 


RENAME 

Rename a file. 


STATUSs 


User memory at PAD is untouched. 


COMMAND FORTMATs 

RENAME newname=oldname 


OPERATION; 


The specified file is given the specified new name 
must not already exist a file with the same name 
specified new name or an error will result. 


EXAMPLE; 

RENAME MYFILE.4TH=MYFILE 

The file MYFILE is renamed as MYFILE.4TH. 


NOTES; 


commands 


There 
as the 
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FtEW I IMD 

Move the file cursor to the beginning of the file. 
STATUS: 

User memory at PAD is untouched. 

COMMAND FORMAT: 

REWIND filenum 


OPERATION: 

The cursor of the specified file is repositioned at 
beginning of the file. The file must already be open., 

EXAMPLE: 


REWIND 1 

R e w i n d file n u mb e r o n e. 


NOTES: 


LX 11 - 24 


th 



valDOS commands 


SETUN I T 

Set the default drive unit. 


STATUS: 


User memory at PAD is untouched. 


COMMAND FORMAT: 

SETUNIT unit 


OPERATION; 


Whenever a filename does not explicitly contain a drive 
specification, the new default drive unit will be assumed. 
Units are numbered from one to four. 


EXAMPLE: 

SETUNIT 2 


Set. the default unit to two. 


NOTES; 
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UNLOCK 

Unprotect a file bo that it may be modified. 

STATUS: 

User memory at PAD is untouched. 


COMMAND FORMAT: 

UNLOCK f i 1 ©spec 1 /N> < , f i ]. espec 2 { /NT } > 


OPERA'TI ON: 

The UNLOCK command removes protection from the specified 
files so that they may be killed or modified. If the fi1esoec 
is unambiguous (i.e., no wild cards). no verify prompt is 
issued. If the file spec is ambiguous. a verify prompt, is 
issued for every file about to be unlocked unless the? /N switch 
is present. 


EXAMPLES: 

UNLOCK THIS 

Unlock file THIS on the default drive unit. 

UNLOCK PART 1 „ PART2, PART "3, D3: PART? 

U n 1 o c k f i 1 e s P A R T1 P A R T 2 „ a n d P A R "I 3 f r o m t h e 
default unit, and all files found on unit three 
w i t h f i v e 1 e 11 e r n a m e s t h a t b e g i n w i t h P A R I . 

UNLOCK T . BAS. *. BAK/N. D2:MYFILE. TEST. */N 

Unlock all files with the extension BAS giving 
verify prompts. Unlock all files with the 
extension BAK without verify prompts. Unlock 
MYFILE on unit two. and ail files named TEST 
on t he def au 11 un i t. 


NOTES: 
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WFt I TE 

Write an area of memory to a file. 

STATUS; 

User memory at PAD is untouched. 


COMMAND FORMATS; 

WRITE f i 3. ename, address, count 
W RIT E f i 1 e n u m, a d d r e s s, c o u n t 


OPERATION; 

In the first form, the first "count" bytes of memory at 
the specified address are written to the specified file. If 
the file does not already exist, it is created. The file is 
c 1 osed after t.he write. In the sec:ond form, t.he memorv block 
is written to the already open file. The file is left open. 
The address can be specified by either a number or a single 
word (such as PAD) which returns a number. 


EXAMPLES; 

WRI TE MYFI LIE,, PAD, 1000 

Write the 1000 byte block of memory at the address 
s p e c i f i e d b y P A D t o M Y FIL E. 

WR I TIE 1 „ 40960, 256 

Write the first 256 bytes of memory at address 
40960 to the file associated with file access 
number one„ 


NOTES 
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System 


The following set of words make up the heart of the valDOS 
system. Mote that all of the following words are in a special 
vocabulary named DOS. Any word which uses one of these system 
operations must contain the word DOS in the definition, as it 
is necessary to inform the compiler where to look for these 
definitions. Since most of these commands are on the system 
level, a brief description of how the system works is 
appropriate. 

Before any file can be manipulated, it must be opened for 
access. A file buffer and a status block are allocated for 
each open file. Additionally, each file has its own file 
cursor (which is positioned at the beginning of a file at open 
time). This cursor always points to a location within the 
file,, If a byte is read from the file, the byte pointed to by 
this cursor is returned and the cursor is moved a byte deeper 
into the file. When a byte is written to the file, it replaces 
the byte pointed to by the file cursor, and the file cursor is 
then bumped. 

Thus, if a 10K file is opened and five bytes are written 
to the file, the first. five bytes will be changed, and the 
remainder of the file will be left untouched,, If the file is 
then closed, the file will still be 10K long. Most BASICS, 
however, will "end-file" a file when it is closed, i«e„, in 
this example, the file would be reduced to five bytes. By not 
implicitly end-filing a file when it is closed, greater 
flexibility is gained. Note that the valDOS commands (such as 
COPY and EDIT) do implicitly perform an end-file prior to 
closing a file. 

The two most common operations are reading a file and 
writinq a fi1e. Usua11v when reading a file, the file is 
opened, read to the end (eof), and then closed. Generally when 
a file is written, it is opened, written, end—filed, and then 
c1osed„ 
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v a 1 D 0 S __ S v s t e m _ W g r d s 


I his is the name of the vocabulary which contains- all 
of the following DOS system words. DOS stands for Disk 
Operating System (not Software as some claim). Any word 
which contains one of the following words must contain 
this word within its definitions s myword DOS ... 

DOS is IMMEDIATE. 


GENTRIES 


A quan which contains the number of entries that 
matched the (wild) filename last checked by CHKDIR„ CHKDIR 
returns this value automatically. This value can also be 
used to index the first "n" elements of the table pointed 
to by DIRTBL (below). 


#FREE -.- n 

A quan which contains the number of free directory 
entries in the last directory scanned by CHKDIR. 


ttUNTRN - n 

A quan which contains the number of bytes left 
untransferred in the last block read/write operation. This 
value is only accurate immediately after the read/write 
operation returns control to the calling routine. 

('/OPEN > $ - ff l>/0 

This routine checks to see if the file specified by $ 
is open. If the operation is successful. a flag is 
returned along with the value one. If this flag is 0, the 
file is closed. If an error occurred. only a zero is 
r et urned. See DSKERR. This r outine uses FMC0M„ 


(OPEN) $ - fad dr fl# 1 > / 0 

This routine opens the file specified bv It is 

used to create the necessary data transfer path between 
the application and the DOS. If the open is successful, a 
f i I e transf e r b u f f e r is a I 1 o c: a t. e d a n d i s a s s i q n e d a f :i. 1 e 
access number. All subsequent operations upon the open 
file? require that this file number be supplied. On a 
s u c c e s s f u. 1 o p e n , t h e f i 1 e n u rn b e r a n d t h e t r a n s e r b u f f e r 
addr ess ar e r eturned . I n most cases. 11)e buf f er addr ess 

can simply be discarded, while the file number must be 
stored by the application. File numbers are always greater 
t h an z er o„ See DSKERR. This routin e uses FNCON. 
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(CLOSE) fl# - 

The (CLOSE) operation closes the data transfer path 
associated with the specified file number. The file 
buffer is flushed to disk if updated, and is freed for a 
subsequent open operation. If "fl#" is zero, all open 
channels are closed from access. This routine generates 
no errors. Illegal file numbers are ignored. 


(ENDF) fl# - 

Each open file has a file cursor which points to the 
next byte to be read or written. The "end file" operation 
marks the current, byte as the end of the file. Thus :i. f 
the file cursor points to the fifth byte of a 10K file, 
the current, byte and all successive bytes are lost, and 
the disk space is reclaimed. This is typically used just, 
before c 1 osi ng a file t hat has been writ t en t.o. Thi s 
ensures that no "stale" data remains. The command ENDFIL 
u s e s t h i s r o u t i n e, 


(ENTER) $ - f 

The filename specified by •?> is entered into the 
directory on the unit specified within the filename. If 
no unit is explicitly stated, the default unit. (specified 
by DFLUNT) is assumed. A one is returned if the operation 
was successful, otherwise a zero is returned. See DSKERR. 
This routine uses FNCON. (This routine is usually called 
"cr e a t e " . T h a t. n a m e i s a 1 r e a d v u s e d in F 0 R 7 H, h o w e v e r . ) 


(KILL) « — f 

The filename specified by ’*■ is deleted from the 
directory on the unit, specified within the filename. If 
no unit is explicitly stated,, the default, unit (specified 
by DFLUNT) is assumed. A one is returned if the operation 
was successful, otherwise a zero is returned. See DSKERR. 
T h i s r o u t i n e u s e s F N C 0 N. 


(LOCK) $ - f 

The filename specified by $ is locked so that it may 
not be written to, killed, or renamed. A one is returned 
if the operation was successful, otherwise a zero is 
returned. See DSKERR. This routine uses FNCON. 
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(RDB) fl# - {b 1J/0 

The "read byte" operation reads the next byte from 
the file whose access number is "fl#". If an error occurs 
a zero is returned, otherwise the byte along with a one is 
returned,, If many bytes are to be read, (READ) should be 
used if possible as that routine is many times faster than 
(RDB). Note that if a read is attempted with the file 
cursor at the end of the file, an EOFERR error is 
generated. See DSKERR. 


(READ) addr cnt fl# - f 

This operation reads the next "cnt" bytes of the file 
whose access number is "fl#" and stores them in memory 
beginning at "addr". If an error occurs a zero is 
returned, otherwise a one is returned. The quan #UNTEN 
contains the number of bytes left untransferred in the 
even t of an error. See DSKERR, 


(REN) 

Th i s 

returned 
returned. 


(SPACE) cnt fl# - f 

The space operation repositions the cursor of the 
file whose access number is "fl#" by the sinned number 
"cnt". The value "cnt" must lie in the range of -32768 to 
32767 „ Also note that the file cursor cannot be spaced 
past byte no. 65,535 of the tile. If "cnt" is zero, the 
space operation is ianored• A one is returned ’f no error 
occurred, otherwise a zero is returned, 

(UNLOCK) $ - f 

The filename specified by % is unlocked so that it 
may be written to. killed. or renamed« A one is returned 
if the operation was successful« otherwise a zero is 
returned. See DSKERR. This routine uses FNCON» 

(WIND) f fl# - f 

The (WIND) command is used to position the file 
cursor at beginning or end of the file. If "f" is one. 
the file cursor is rewound to the beginning of the file. 
This allows the file to be re—read. If "f" is zero, the 
file cursor is moved to the end of the file for subsequent 
writinq, effectinq an append operation. A one is returned 
if the operation was successful. otherwise a zero is 
r e t u r n e d „ S e e D S K E R R „ 


$n $o - f 

operation renames the file $o to f-n. A one is 
if no error occurred, otherwise a zero is 

o 
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(WRB) b f I # - f 

The byte "b" is written to the file whose access 
number is "fl#". If many bytes are to be written to the 
file, (WRITE) below should be used instead, as it is many 
times faster than (WRB), A one is returned if the 
operation was successful, otherwise a zero is returned. 
See DSKERR. 


(WRITE) addr cnt fl # - f 

The block of memory "cnt." bytes long beginning at 
memory location "addr" is written to the file whose access 
number is "fl#". A one is returned if the operation was 
successful, otherwise a zero is returned. See DSKERR. 


7D0SERR f err# - 

This is one of three (see DOSERR, 7DSKERR) error 
routines available at the system level. If the flag "f" 
is zero, the system error "err#" is generated. Program 
control does not return to the word which contained 
7.00SERR, but to the word which called this word. For 
example, if an application calls (OPEN) and a 7D0SERR 
within (OPEN) generates an error, 7DOSERR will not return 
to (OPEN), but to the application, passing a 0, If the 
7D0SERR does not generate an error, program control will 
return to (OPEN). 7D0SERR stores the error value in the 
quan DSKERR. See the actual definition of (OPEN) for a 
good example of how this is used, 7DOSERR is essential 3v 
a SWAP 0= IF' DOSERR END IF DROP 


7DSKERR f - 

"■■’DSKERR i s used to propogate an error from one word 
to the next. It replaces the sequence DSKERR VDnSFRR. See 
7D0SERR, 


7 WILT) -. f 

I his is a quan which contains a one if the last 
filename converted by FNCON contains either of the wild 
card characters "?" or A zero is returned if no wild 
cards appeared. 


BUFBOT - addr 

!his is a word which returns the lowest memory 
address used by the DOS file buffers. 
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CHKD I. R 


— n 

The check-directory routine scans the directory on 
the unit specified within the last filename converted tav 
FNCON for all occurrences of that filename. For everv 
match found (multiple matches are due to wild cards) in 
the directory, a directory entry number is stored in the 
next available location of thee memory block pointed to by 
DIRTBL. Thus if CHKDIR finds five occurrences of a 
filespec, the first five elements of DIRTBL contain the 
directory entry numbers for those five matches. These 
values can then be used in conjunction with the ENTRY 
command to access the files. CHKDIR returns the number of 
matches. 


DFL.UNT -. n 

A quan which contains the number of the default unit. 
This drive number is assumed if no drive specification is 
contained within a filename converted by FNCON. Caution, 
this contains 0 if DOS drive 1 is the default. 1 if DOS 
drive 2 is the default, etc. (FORTH drive = DOS drive-1> 


DIRFRE - n 

A quan which contains the entry number of the next 
free entry in the directory last scanned bv the CHKDIR 
rout :i. ne „ 

DIRTBL -. addr 

A word which returns the starting address of a 64 
byte memory block that contains directory entrv numbers of 
all files that matched the last filename checked by the 


C H K DIR r o u t. i n e» S e e C H K DIR. 

D1 EUR 

This marks the current directory as being updated so 
that it is written to disk upon the next DSKFLS command. 

DOSERR err# .. 0 

This is one of three (see ?DOSERR, 2DSKERR) error 
routines at the svstem level, DOSERR unconditional1v 
generates the error whose error number is "err#". Program 
control continues two levels up (instead of the usual one) 
and a zero is returned. See 2D0SERR. 

D3KEER . n 

A quan which contains the error number of the last 
DOS error that occurred. See List of Errors below. 


LX 111 


6 











valDOS 


A routine which flushes the current directory and 
free space map if updated. All user defined commands 
should end with this command. See? source listing for 
pre-defined commands. 


ENTRY unit n - addr 

The entry command returns the address of the "nth" 
entry in the directory on the specified drive unit. The 
16 byte entry has the following formats 


addr+Os 


addr +1s 
addr+3s 
addr+5: 


add r +13 s 


status 
b i t 7 s 
6 s 


4: 


1 s 
Os 

3. ength 
f i rst 


byte 
Fi 1 e 
F i 1 e 
Fi 1 e 
F i 1 e 
F i 1 e 


deleted if set 
entry valid if set 
locked if set 
random if set 
in use if set <not used) 
Unused 

DOS format 2 if set 
File open for output if set. 
of file in sectors 
(DOS) sector of file 
8 1 e 11 e r f i 1 e n a m e, 

1 e f t j u s t i f i e d. blank f i .11' e d 
3 3. e 11 e r e t e n s i o n , 

1 eft justified, b1 ank fi11ed 


If any changes are made,, executing DIRUP and DSKFLS will 
write those change s to di s k. 


FL.BUF3) f I # - addr 

Whenever a file is opened, a 128 byte transfer buffer 
and a 16 byte status block are allocated. The FLBUF® 
command returns the address of the file status block 
associated with "f1#". The 16 byte table contains the 
f o 11 dw i n g i n f or m at i o n: 


addr+Os File status byte (see ENTRY). 
addr+1s Current size of file in sectors. 

If high bit is set, file is updated. 
addr+3; First. (DOS) sector of file, 
addr+5; (FORTH) sector currently in file buffer, 

ad dr+7; Number of bytes into current, sector, 

a d d r+8; U n i t a s s o c i a t e d w i t h t h e f i 1 e» 

addr+9: Entry number in the directory, 

addr+10: Non-zero = current sector is updated. 

addr + 11: (reserved for) Current, random block. 

addr+13s (reserved for) Random block update flag. 
addr+14; Number of bytes into file (unsigned). 


addr—128: Address of 128 byte file buffer. 
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'"'n 


FLFLS fl# —. 

This operation flushes the file buffer associated 
with the file access number "fl#"„ 


PNC ON $ - f 

The FNCON command takes the file specification $ and 
converts it to directory format. <i „e« , left justified and 
blank filled). It stores the 11 byte formatted filename 
at the memory location pointed to by FNFLD. All wild 
cards are converted to question marks, thus, "MY7FIL#" 
will become "MY7FIL7777?". Additionally, if a drive 
specif ication i s contai ned in t. he f i 1 espec. i t. i s 
determined and stored in the quan UNIT,, If no drive 
specification was supplied, the default unit (in DFLUNT) 
is stored in UNIT. FNCON will also parse out a single 
switch ("/s"> where the character "s" is stored in the 
quan FNSWCH. If no switch is found. a zero is stored in 
FNSWCH. If any wild cards appear in the file 
specification, the quan 7WII....D is set to one. otherwise 
zero is stored. If no errors were detected, a one is 
r e t u r n e d, o t h e r w i s e z e r o. 

FNFLD —. addr 

A pointer to an eleven byte storaae area which 
contains the filename last formatted bv FNCON,, 


FNSWCH .. s 

A quan which contains the ASCII value of the switch 
in the last filename converted by FNCON. If no switch was 
present, FNSWCH contains zero,, See FNCON. 


FSMAP - addr 

A word which returns the address of the current free 
space map. 


FSMUP - 

The FSMUP command marks the current free space map as 
b e i n q u p d a t e d, 

MA.XFL - 

A constant, which contains the maximum number of files 
that can be open at any given time. This has a default 
value of four. If this constant is chanced„ valDOS must T 

b e c o m p 1 e t e 1 v r e 1 o a d e d , 
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TADR - n 

After a block read/write operation, this quan 
contains an address one byte higher in memory than that of 
the last byte transferred. This can be used to determine 
how much data was transferred in the event of an error. 


UNIT - n 

A quan which contains the unit specification of the? 
last filename converted by FNCON. Note that this is a 
FORTH unit (i.e.« FORTH unit = DOS unit-1). 


WRKSPC - ad dr 

A quan which points to a 128 byte scratch area used 
by many of the system words described above. This is free 
for user applications between valDOS system calls. 
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va 10OS Cgmman d ... Supgor t....W or d s 


7CMDERR n err# - 

Like 7D0SERR, but prints the error message, clears 
both stacks, and aborts program execution through QUIT, if 
the status flag "n" is zero. If "n" is true, 7CMDERR 
ret.urns t.o the calling word. 


7SYSERR n - 

Like 7'DSKERR, but aborts through 7CMDERR if "n" is 
zero. If "n" is non-zero, 7SYSERR returns to the calling 
wor d. 


7WR0ARG 


n 

i"h i s i s 


a n a b b r e v 3. a t i o n f o r 


WRGARG 


CM DERR 


CO MEN ad dr unit - $ 

The CONFN routine takes the directory formatted 
■filename at "addr" (usually FNFLD) and converts it to a 
string. The drive specification "unit" is attached to the 
begi nni no of the f i 1 ename < i . e. unit = 0 would generate 
"D1;">„ 


CM DERR err# - 

Like DOSERR* CMDERR unconditionallv generates the 
er r or spec i f i ed b v " or r # " , 

ECHO 

When 
echoed to 
no output 

FWORD 

Read the next text characters from the input file 
whose file number is in the quan PLFL# (FLOAD initializes 
FLFL#) until a delimiter "c" is found, storing the packed 
character string beginning at the dictionary buffer HERE, 
FWORD leaves the character count in the first byte, 
followed by the characters, and ends with two or more 
b1 anks„ Leading occurrences of "c" are ignored. Note 
that "c" may not be the return character (ATASCII 155), 


ON/OFF - 

echo is ON, all files being FL.OA.Ded will be 
the current, output device (s) . When echo is OFF, 
is generated, 
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BET'7 A L $ - n 

If $ is the name of a dictionary word, thee word is 
executed and had better return a single value. It f> is 
not found in the dictionary, it is assumed to be a number 
and is converted leaving the number n. SETVAL is used so 
that addresses may be stated explicitly, or by reference 
(PAD, HERE, etc.). 


bet args — c$ 11/0 

This routine converts the next non-blank set of 
characters in the input stream to a string,, If a set of 
non-blank characters is found, it is returned along with a 
one. If no set. is found, a zero is returned. 


GETARB $ c - C$1 $2 13-/C$ 01 

The string $ is divided into two parts, broken at the 
first occurrence of the character "c". If the character 
"c" is found in $, the leftmost portion of $ is returned 
3rd on stack, the rightmost. 2nd on stack, and 1 on top. If 
"c“ is not in the string, the original string along with 0 
is returned. 
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System Errors (al1 are CONSTANTS) 


AMBNME - n 

Ambiguous filename. This error is generally issued 
when a filespec containing wild cards is passed to one of 
the primitive file operators like (OPEN) or (KILL),, 

BADFL# - n 

Bad file number. The error is generated when a file 
number does not lie in the range 1 < f 1# < MAX FT... (default 
of four),, 

BADFBM - n 

Bad free space map. This is issued when the number 
of free sectors does not match the true number of free 
sectors. If this error is reported, a new disk should be 
made and all files should be transferred to this new disk 
u s i n q C 0 P Y o r F M 0 V E. 

BADNME - n 

Bad filename,, The filename passed to the system 
routine contained an illegal character. or was too long. 
File names can only contain the letters "A" through "Z" 

9". Note that the first 


and the dinits "O" through "9"„ 
character of a filename must be a letter.. The two wild 
card characters "?" and are also allowed. 

BA DU NT .. n 

Bad dr i ve speci f i cat i on „ A dr :i. ve n \ tmber was 

encountered that did not lie in the range 1 < unit < 4. 

DIRFUL - n 

Directory is full,, There is no more room :i. n the 
directory. Kill some unwanted files and trv the op or at i. on 
an a i n „ 


DSKF'UL.. - n 

Disk is full. There are no 
disk. Kill some unwanted files and trv the operation 
aqain. 


:> more free sectors on the 


EOFERR - n 

End of file has been reached. This error generally 
results from an attempt, to read data past the end of file 
mar k „ 


FLDNE 


File does not exist,. 


F i 1 e a 1 r e a d v e j. s t s.. 
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FLNOPN - n 

File is not open. Use the OPEN command and open the 
■file. This error should only occur when using the file 
primitives 1ik e (SPACE) and (WIND). 

FLOPN - n 

File is open. Use the CLOSE command to close the 
appropriate file. See OPEN? 


FLTBG - n 

File is too big. This error is usually reported by 
the file editor when there is not. enough free memory to 
edit the file. Break the file into two parts, or use the 
FORGET command to free some memory. 

FLWPRT - n 

file is write protected (locked). Use the UNLOCK 
command and perform the last operation again. 

TMFOPN - n 

Too many files open. For each file open, a file 
buffer and a file status block is allocated. There are a 
limited number of available? buffers (determined by the 
constant MAXED. If all buffers are being used and an 
open operation is attempted, this error will be generated. 
Use the CLOSE command to free a buffer. 

WPSARB - n 

Bad/no argument list. This is generated when a DOS 
command expects a. list of arguments and none is supplied. 
This is also generated when the wrong number or tvpe of 
arquments i s suppI i ed. 






A note_on_QUAN .... structures 


The "quart" is a new FORTH data structure, developed at 
Valpar, and is used in this package. Quarts were devised to cut 
down on wasted memory and runtime encountered when using the 
"variable" data structure, Quans work as -follows: (Advanced 
users may want to follow along in the source code for these 
structures also. 

Defining a quans 
GUAM BINGO 

Note that quans do not take initial values. This form was 
chosen to allow for simpler upgrading to target-compiIed code 
later on. 


6 i v i n g a q u a n a v a 1 u e; 
1234 TO BINGO 


Note that, since TO is immediate, "TO BINGO" compiles to only 2 
bytes instead of the 4 bytes that would be required if BINGO 
were a variable <i,e„, BINGO I). 

Getting the value back from a quan: 

BIN60 


S i m p I v s a y i n g t. h e n a m e 
stac:k, in thi s case 
constants. BING0 afoove 
the 4 bvt.es required 
BINGO 3),' 


of the quan will leave its value on the 
.1.234. In thi s way, quans act 1 i ke 

also compiles to only 2 bytes instead of 
to fetch it. if it were a variable (i.e.. 


Getting the address of the data in the quan: 

AT BINGO 

This will leave the address of the first byte of data in 
BINGO on the stack, or compile the address as a literal if 
encountered during compi 1. at ion. (AT is immediate. ) This is 
useful for a variety of purposes in general programming and in 
interfacing to machine language routines. 

Advanced users: 

!he FORTH 83 Standard appears to lean toward 
"non -state--smart'' words,, wh i ch i s proper f or tar get.--compi led 
applications. We expect to support; both "state-smart" and 
"non—state—smart" versions of various words, as appropriate for 
d i f f e r e n t u s e r s. 

Note that while 

15 AT BINGO +! and 15 BINGO -i- TO BINGO 

accomplish the same task and take the same amount of memory, 
the first ver si on i s f aster by one pr i m 1 1. i ve nest. 

The most significant internal feature of a quan is that it 
has 3 cfa-'s instead of just the one common to most FORTH words. 





This initial -four byte disadvantage is overcome at the second 
use of a quan, and so poses essentially no problem. When a quan 
is not preceded by "TO" or "AT", the first cfa (quan®) is 
compiled in. It the quan is preceded by "TO", the second eta 
(quan!) is compiled in. And it the quan is preceded by "AT", 
the third eta (’quan) is compiled into the dictionary. 
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Version 1.0 
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The FOETH language is a very powerful addition to the 
Atari home computer. Programs which are impossible to write in 
BASIC (usually because of limitations in speed and flexibility) 
can almost always- be written in FORTH. Even when one has 
mastered the BASIC language, making corrections or additions to 
programs can be tedious. The video editor described here 
removes this problem from the FORTH environment. Similar to 
the MEMO PAD function in the Atari operating system, this 
editor makes it possible to insert and delete entire lines of 
code, insert and delete single characters, toggle between 
insert. and replace modes, move entire blocks of text, and much 





File Editor 


Overview 


This editor is a powerful extension to the valFORTH system 
designed specifically for the Atari 400/800 series of 
microcomputers. The main purpose for this editor is to give 
the FORTH programmer an easy method of text entry to DOS file 
for subsequent compilation. For those already familiar with 
the val FORTH 1,1 screen editor,, this editor is very similar in 
function. In fact, all of the commands found in that editor 
(except ctrl~A) are supported in the file editor. More 
importantly, many additional capabilities have been added to 
t h i s e d i t or . T h ey a r e; 

1) Tab stops can be set/reset. 

2) Splice (unsplit) is now supported 

3) Global pattern searches 

4) A repeat function which repeats the next 
command/key typed until a console key is pressed 

5) File merge (i„e„, reading a file into a file) 

6) True si ng 1 e/mu 11- I i ne scrol 1 i ng ei t.her 
•f o r w a r d o r b a c k w a r d 

7) Input and output files may be different 
The editor has four basic modes of operations 


1) It allows entering of new text into a file as 
thou.gh typinq on a regu 1 ar typwr i ter . 

2) It. allows simple modification of any text, 
with a powerful set of single stroke 

edi ting c ommand s . 

3) It pinpoints exactly where a compilation error 
has occurred and sets up the editor for 
immediate correction and recompilation. 

The set of single stroke editing commands is a superset of 
the functions found the in MEMO PAD function of the standard 
Atari operating system. In addition to cursor movement, single 
character i riser t i on/del et i on , and line insertion/deletion,, the 
editor supports a clear—t.o-end-of-1 ine function, a split 
command which separates a single line into two lines, its 
c o m p 1 e m e n t. s p 1 i c e (u n s p 1 it), g I o b a I s e a r c h e s, a n d m a n y o t h e r 
f eat ur es u su ally f oun d on1y in hig h er q uaIit y word proc essor s, 
and almost never in file editors. 

Also provided is a visible edit storage buffer which 
allows the user to move, replace, and insert, up to 320 lines of 
text at a time. This feature alone allows the FORTH programmer 
to easily reorganise source code with the added benefit of 
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!••:nowinq that re-1yping mistakes are avoided. Usaoe ha 5 shown 
that once edit-buffer management is learned, significant typing 
and proqramming time can be saved. 

For those times when not programming, the editor can 
double as a simple word processor for writing letters and 
filling other documentation needs. Perhaps the best, method for 
learning how to use this powerful editor is to enter the edit 
mode and try each of the following commands as they are 
encountered in the reading. 


NOTE: 


This editor can be used to enter assembly language source,, 
Pascal, or any other text oriented data. The only limitation 
upon this is that, no lines may be longer than 38 characters .in 
length,, Additionally,, this editor can edit files created from 
other sources 5 however, only the first. 38 characters of a line 
w i 11 b e r e t a i n e d „ 
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L g a d i n g _ a n d _ E n t e r i n g _ t h e _ E d i t g r 


To load the editor,, first load valDOS as described in 
"Strolling Through valDOS". Next, insert, the valDOS II disk 
and list screen 170. This should tell you exactly which screen 
to load. The edit mode is initiated using the EDIT command. 
This command has the following formats 

El D IT i n f i let, o u t f i 1 e > 


The DOB file "infile" is loaded for editing. When all changes 
have been made and the file is saved, the modified text is 
written to the file "outfile", if supplied, otherwise it. is 
w r i 11 e n b a c: k t o "infile". 

Insert a copy of your valDOS II disk and types 

E DIT FIL E17.4 T H, M Y FIL. E 


f h e e d i t o r w i 11 d is p 1 a y s o m e i n f o r m a t ion which c a. n b e i g n o r e d 
for the time being, and then it will wait for the return key to 
be typed. After pressing the return key, the display should 
look like fig. 1, 

The top window, composed of a single line, 
is current I v being edited,. Also shown is 
buffer (deeribed later). in this example, 
lines in length,, This window is known 


indicates whieh 
the size of the 
the buffer is 
as the heading 


file 
ed i t 
f i ve 
win d ow. 

The second window (the text window) contains 16 lines of 
t e x t. w i t h i n t. h e s p e cif i e d f i 1 e „ T h i s w i n d o w i s 3 8 c h a r a. c: ters 

wide a.nd 1 6 1 :i. nes hi gh „ The whi te cursor ( i. ndl c ated by t:he 

symbol "®") will be in the up per--1 eft hand corner of the display 
a w a i 1 1 n g e d i t i n g c o m rn a n d s. 

T h e f i n a 1 f i v e -line wind o w found a t t h e 
d i s p 1 a y i s 1: n o w n a s t h e b u f f e r w i n d o w „ T h i s 
ad vanced edi t i ng and i s descr i bed i n qr ea.t er 
section entitled "Buffer Management." 


bottom of 
is used 
detail in 


the 
■f or 
the 



File? Editor 


LL 



! Files MYFIL..E 

<C .. 


#Bufss 5 


© 

< Routines FILE-IT 

The foil c:>wi. ng rout i ne wi 11 
transfer a specified range of 
FORTH screens to a file on 
a .0 0 S f o r m a 1 . 1 . e d d i s k . 

Formats FILE—IT 1st,last,filename 
FILE-IT 10, 20,, MYFILE 

Note that. DOS commands tend to be 
long because of error checking and 
p a r a m e t. e r p a r s i n g „ ) 


F i a « 1 





re 

-edi t 

last file 


< - ) 


Th i s 

command 

:i. s 

used 

! to re-e 

dit the "L. a 

st" file 

ed 

ited , It 

function 

c::„ 

i dent i 

cal 3v to 

the ED 11 

command,, 


cept that 

n o f i. 1 e 

n a 

iTibs ne 

■ed to be 

spec i f i ed.. 


E>; 

amp1e s 

i 

1 

<ret 

> ( r 

e—ed i t MYF J.! 

LE ) 



i 
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Loadin g_and_Enterin g_the_Edit gr 


To load the editor,, first load valDOS as described in 
“Strolling Through valDOS". Next, insert the valDOS II disk 
and list screen 170. This should tell you exactly which screen 
to load. The edit mode is initiated using the EDIT command. 
This command has the following formats 

E DIT inf i 1 e {, ou t. f i 1 e > 

The DOS file "infile" is loaded for editing. When all changes 
have been made and the file is saved, the modified text is 
written to the file "outfile", if supplied, otherwise it. is 
writt en b ac k t a "infile". 

Insert a copy of your valDOS II disk and types 

ED IT FILEIT. 4 T H, M YFI L.E 

I h e e d i t o r w i 11 d i s p 1 a y s o m e i n form a t. ion which c a n b e i g n ored 
for the time being, and then it will wait for the return key to 
be typed. After pressing the return key,, the display should 
look like fig. 1„ 

I he top window, composed of a single line, indicates which 
file is currently being edited,, Also shown is the size of the 
edit buffer <decribed later). In this example,, the buffer is 
five lines in length. This window is known as the heading 
window. 

The second window (the text window) contains 16 lines of 
t e x t w i t h i n t h e s p e c i f i e d f i 1 e „ T h i s w .1 n d o w :i. s 3 S c h a r a c t. e r s 
wide and 16 lines high. The white cursor (indicated by the 
symbol "©" > will be in the upper-1 eft. hand corner of the display 
a w a i t in g e d i t i n q c o m rn a n d s. 

The final five-line window found at. the bottom of the 
display is known as the buffer window. This is used -for 
advanced editing and is described in greater detail in the 
section entitled "Buffer Management, " 
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LL 



' File; MY FILE 
•: . 




0 

< R o u t i n e s FIL E“ -17 

The fol 1 owing rout.ine wi 11 
t I rans ’ fer a specified range of 
FORTH screens to a file on 
a .0 0 S f o r m a 11 e d d i s k . 

For mat s FILE-1T :i. st1 ast, f i 1 ename 
FI LE-1T 10, 20, MYFI LE 

Note that DOS commands tend to be 
long because of error checking and 
par amet.er par si nq» 



Fig. 1 


re-edit last file 


This 

edited. It 
except that 


command is used to re-edit the "Last 
f unc t i on s i denti c a 1 3 v t o t he ED 1.1 
no file names need to be specified.' 


" f i .1. e 
command 


ft 


Ex amp1es 


< r et. > 


re-edit MYFILL ) 
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WHERE -find location of error < - ) 

If? when compiling code, a compilation error occurs, 
the WHERE command will enter the edit mode and position 
the cursor over the last letter of the offending word. The 
word can then be fixed and the file saved for subsequent 
compi 1 at i on usi ng the "Ft...0AD f i 1 ename/C" command . 


#BUFS set buffer length ( #lines - ) 

The #BUR'S command allows the user to specify the 
length (in terms of number of lines) of the special edit 
storage buffer. The power of the edit buffer lies in the 
number of lines that can be stored in it. Although the 
default value is five, practice shows that at least 16 
lines should be set. aside for this buffer. The maximum 
number of lines allowable is 320 which is enouqh to hold 
2 0 f u I 1 s c r e e n s s i m u 11 a n e o u s 1 v. 


.INFO display file information ( - > 

If an error occurs and an edited file is not saved to 
disk., the . INFO command will supply all the necessary 
i n f o r m a t i o n t o s a v e t h e f i 1 e u s i n g t. h e W R I T E c o m m a n d . 
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The -following sections give a detailed description of all 
commands which the video editor recognises,, A quick reference 
command list can be found following these descriptions. 


Cursor Movement 


When the edit mode is first entered via the EDIT command,, 
a cursor is placed in the upper left-hand corner of the screen. 
It should appear as a white block and may enclose a black 
letter. Whenever any key is typed and it. is not recognized as 
an editor command, it is placed in the text window where the 
cursor appears. Likewise, any line functions (such as delete 
line) work on the line where the cursor is found. 


Ctrl T j, Ctrl V „ Ctrl , ctrl > move--cursor commands 


To change the current edit, line or character. one of 
four commands may be given. These are known as cursor 
commands. They are the four kevs with arrows on them,, 

Ihsse keys move the cursor in the direction specified by 
the arrow on the particular key pressed. There are times,, 
however, when this is not the case. 

Similarly, if the cursor is positioned on the 

leftmost edge and the "cursor.left" command is given, the 

cursor will "wrap" to the rightmost character,, I ssui nq 
"cursor-right" will wrap to the left edqe. 


KElURN next.1ine command 

The RETURN kev positions the cursor on the first 
character of the next line. If RETURN is pressed when the 
cursor is on the last line of the file, a line is inserted 
at the end of the file. 


TAB 


t a fa 11 1 a t e c o m m a n cl 


The TAB key is used to 
to the right of the current 


t a b u 1 a t. e t o t h e n e x t T A fct 
c u r s a r c h a r a c t e r. 


st. 


on 
.... ,... 
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ctrl TAB clear TAB stop 

Clear the tab stop at the current cursor location. 
The de-fault tab stops can be reset by issuing the ET 
subcommand. 


shift iAB set TAB stop 

Set a tab stop at the current cursor location. The 
default tab stops can be reset by issuing the ET 


subcommand« 


ctr1 L continue search 

Search for the next, occurrence of the pattern set. up 
using the PS subcommand. Patterns can be up to 30 
characters in length. 


c t r 1 V 


enter subcommand mode 


The puts the editor into the subcommand mode. See the 
section entitled "Subcommands" for a list of available 
commands„ 


MOTE: 


Many commands in the editor will "mark" the file as 
updated so that any changes made can be preserved on disk. As 
simple cursor movement does not change the text window in any 
way, these commands never marl-: the file. 
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Editing commands are those? commands which modify the text, 
in some predefined manner and mark the file as updated for 
later saving. 


ctrl INS character insert command 

When the "insert-character" command is given, a blank 
character is inserted at the current cursor location. The 
current character and all characters to the right, are 
pushed to the right toy one character position. The last 
character of the line "falls off" the end and is lost. The 
inserted blank then becomes the current cursor character. 
This is the logical complement to the "delete—character" 
c o m m a n d d e s c r i b e d b e 1 o w, 


c t r.!. D fc. i... cl e 1. e f e c h a r a c t er c o mm a n d 

When the "delete—character" command is issued, the 
current, cursor character is removed, and all characters to 
the right of the current cursor character are moved left, 
one position,, thus giving a "sqeeze" effect,, This is 
normally called "closing" a line. The rightmost character 
on the line (which was vacated) is replaced with a blank. 

I his serves as the logical complement to the 

"insert-command" described above. 


shift IMS line insert command 

The "1 i ne-i nsert" command i nserts a b 1 ank 1 1 ne 
between the current cursor line and the line immediately 
above it. If this command is accidentally typed. the 
"oops" command (ctrl—0) described later can be used to 
recover from the mistake. Also see the "from buffer" 
command described in the section on buffer management for 
a similar command. This command serves as the logical 
complement to the "1ine—delete" command described below. 
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shift. DEL line delete command 

The "line-delete" command deletes the current cursor 
line. If this command is accidentally issued, recovery 
can toe made by issuing the "oops" command (ctrl-O) 
described later. Also see the "to-buffer" command 
described in the section on buffer management for a 
similar command. The "delete-line" command serves as the 
1 og i ca 1 c:omp 1 emen t to the " 1 ine-insert" command. 


Ctrl H erase to end of line 

The "Hack" command performs a c1ear-to-end-of-1ine 
function. The current cursor character and all 
characters to the right of it on the current line are 
b 1 an k f i 11 ed . A 11 char acter s b 1 anked are 1 ost „ The 
"oops" command described later can be used to recover from 
a n a c c i d e n t a 11 y h a c k e d 1 i n e „ 


Ctrl I insert/rep1 ace togg1e 

In normal operation, any key typed which is not 
recognized by the editor as a control command will replace 
t h e current cu r so r c h aracte r with itself. T h is is th e 
standard replace mode. Normally, if one wanted to insert 
a character at the current cursor location, the insert 
character command would have to be issued before any text 
could be entered. If inserting many characters, this is 
cumbersome. 

When active, the insert, sub mode automatically makes 
room for any new characters or words and frees the user 
from having to worry about this. When the editor is 
called up via the EDIT command, the insert. mode is 
d e a c t i v a t e d . I s s u i n g t h e i n s e r t t o g g 1 e c o m m a n d w i 11 
activate it and the cursor will blink, indicating that the 
insert mode is on. Issuing the command a second time wi11 
deactivate the insert, mode and restore the editor to the 
replace mode. Note that while in the insert mode, all 
edit commands (except BACKS, below) function as before. 
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BACKS delete previous character 

The BACKS key behaves in two different ways,, 
depending upon whether the editor is in the insert mode or 
in the replace mode. When issued while in the replace 
mode, the cursor is backed up one position and the new 
current character is replaced with a blank. If the cur sor¬ 
ts at the beginning of the line, the cursor does not. move, 
but the cursor character is still replaced with a blank. 

If the editor is in the insert mode, the cursor backs 
up one f:>osi t i on , then de 1 et.es t he new curren t cursor 
character and then closes the line. If the cursor is at 
the beginning of the line, the cursor remains in the 
same position, the cursor character is deleted and the 
1ine closed„ 


NO I E: 


As 

al1 of the above 

c o m rn a n d s m o cl i f v t h e 

•f i 1 e i r 

some 

manner, 

the file is marked as 

havino been 

changed „ 

Thi s i 

B t o 

ensure 

that, al 1 changes made 

are eventual 

.1 y saved 

on disI 

... The 

"quit" 

:: o m m a n d d e s c r i b e d 1 a t. e r 

al1ows one 

to afoor 

t the 

ed i t 

Bess!on 

s o t. h a t m a i o r m i s t. a k e s 

need not be 

s a v e d . 
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Buffer_Management 


Much of the utility of the file editor lies in its ability 
to temporarily save text in a visible buffer. To aid the user, 
it is possible to temporarily send text to the buffer and to 
later retrieve it. This storage buffer can hold as many as 3.20 
lines of text simultaneously. This buffer is viewed through a 
5 line "peephole" visible as the last window on the screen. 
Using this buffer, it is possible to duplicate, move, and 
easily reorganize text, in addition to temporarily saving a 
line that is about to be? edited so that the original form can 
be viewed or restored if necessary. The following section will 
explain exactly how to accomplish each of these actions. 


Ctrl T to buffer command 

The "to—buffer" command deletes the current cursor 
line, but unlike the "delete-1ine" command where the line 
is lost, this command moves the "peephole" down and copies 
the line to the bottom line of the visible buffer window. 
This line is the current buffer line. The buffer is 
rolled upon each occurrence of this command so that it may 
be used repeatedly without, the loss of stored text. 

For example, if the cursor is positioned on ninth 
line of the display shown in figure 1 and the "to-buffer" 
command is issued twice, the final result will be as shown 
in figure 2. 


Ctrl F from buffer command 

The "from-buffer” command does exactly the opposite 
of the "to-buf fer" command described above. It. takes the 
current buffer line and inserts it between the current 
cursor line and the line above it. The cursor line and 
all lines below it are moved down one line. If the cursor 
were placed on line 14 of the above screen display and the 
"from-buffer" command were issued twice, the display shown 
in figure 3 would result. 


— 11 
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File: MYFILE 


#Buf BT, 


( Rout.ine: FILE--17 

The f o3. 1 owi ng rout i ne will 
transfer a specified range of 
F 0RT H screens t o a fi1e on 
a DOS formatted disk* 


Mote that DOS commands tend to foe 
1ong foecause of error chec king an d 
parameter parsing. ) 


: FILE-IT 
GET'ARBS 


DOS ( — 5 

VWK6AR6 44 GETARG ?WRGARG 


current 


Formats 


FILE.IT 1st.1ast»fiIename 

F IL E -1 T 1 0,, 2 0, M Y f- I!.... E 


■f :t a „ 
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File: MYFILE 


#Bufs: 


< Routine: FILE-IT 


The following routine will 
transfer a specified range of 
FORTH screens to a file on 
a DOS formatted disk. 


Note that DOS commands tend to be 
long because of error checking and 
parameter parsing. ) 


S! Format: FILE-IT 1st, last.filename 
FILE-IT 10.20.MYFILE 
: FILE-IT DOS ( — ) 


F o r ma t s FILE-1T 1st,last.fi1ename 
FILE-1T 10.20,MYFILE 


fig. 3 


Ctrl K copy t o buf f er command 

The "copy—'to—buffer" command takes the current cursor 
line and duplicates it, sending the copy to the buffer. 
The cursor is then moved down one line. This commands 
functions identically to the "to-buffer" command described 
above. except, that the current cursor line is NOT deleted 
f r o m t h e t e t w i n d o w, 


c t. r 1 U 


copy from buffer 


The "copy—from-buffer" command replaces the current 
cursor line with the current buffer line. This command 
functions identically to the "from-buffer" command 

\ described above. e>; c:ep t t hat the buffer 1 i ne i s not 

inserted into the text window. it merely replaces the 
current cursor line. The "oops" command described below 
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can be used to recover from accidental usage of this 
command. 


1 r 1 R r o 13. b u f f e r 

The "rol1-buffer" command moves the buffer "peephole" 
down one line and redisplays the visible window,. If the 
buffer were the minimum five lines in length» the bottom 
four lines in the window would move up a line and the top 
line would "wrap" to the bottom and become the current 
buffer line. If there were more than five buffer lines, 
the bottom four lines would move up a line, the topmost 
line would be pushed up behind the peephole, and a new 
buffer line coming up from below the peephole would be 
displayed and made current. For example, if the buffer 
were five lines long and contained; 


Current.; 


( Who'? ) 
( What? > 

< When? } 

< Where? ) 
( Why? > 


f i g „ 5 

t h e 1 ' r o 11 -bu f fer " c o mm an cl q i v e s; 


Current; 


( What? ) 
( When? } 
( Where? 3 
< Why? ) 
>; Who? ) 


f i q , 6 


Ctrl B back.rol 1 — bu.ffe r c a mmand 

The "back-rol1-buffer" does exactly the opposite of 
the "rol 1 -buffer" command described above,. For example, 
if given the buffer in figure 6 above, the "back-rol1" 
command would give the buffer shown in figure 5. 
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Ctrl C clear buffer line command 

The "clear-buffer-1ine" command clears the current 
buffer line and then "back-rolls" the buffer so that 
successive clears can be used to erase the entire buffer,, 


NOTE: 

Any of the above commands which change the text window 
will mark the file as updated. Those commands which alter only 
the buffer window (such as the "roll" command) will not change 
the status of the current screen. 
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Scrol l j og 


Ctrl 


previous line command 


The "previous-line" command scrolls the text window 
up a 1 ine wi thi n the f i 1 e, 


Ctrl E 


n e x t 1 i n e command 


The "next-line" command moves the text window down a 
1 i n e w i t h i n t. h e f i 1 e „ 


Ctrl P 


p r e v i o u s p a g e c o m m a n d 


The "previous-page" command scrolls the text window 
up 16 lines within the file,, 


Ctrl N 


n e x t p a g e c o m m a n d 


fhe "next—page" command moves the text window down 16 
1 i n es w i t h i n t h e f i 1 e „ 


c t r 1 S 


save command 


1 he "save" command saves any changes made to the 
current file and exits the edit mode. 


Ctrl G 


quit command 


The " 
"forget ting 
The "quit" 
file has 
start, over 


quit" command abort 
" any changes made to 
command is usually used 
been called up. or if 
and re—edi t. 


5 the edit session 
the text file in memory, 
when either the wrong 
:i t b e c o m e s d e s i r a b 1 e t o 
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Sq ecia1_Comman d s 


There are four 
greater flexibility 


special commands in this editor which allow 
in programming on the valFORTH systems 


ESCAPE 


spec i a 1 key cornmand 


The "special-key" command instructs the video editor 
to ignore any command function of the next key typed and 
•force a character to the screen,. For example, normally 
when "ctrl >" is typed, the cursor is moved right. By 
typing "ESCAPE Ctrl •>" the cursor is not moved — 
rather, the right—arrow is displayed. 


ctrl J split line command 

Often times, for formatting reasons, it is necessary 
to "split" a line into two lines. The split line command 
takes all characters to the left of the cursor and creates 
the first. line, and with the remaining characters of the 
original line, a second line is created. Graphically, 
this looks like: 


b ef or e: 


The quickfflbrown fox jumped. 


after: 


i The quick® 

! brown fox jumped. 


Ctrl G 


splice (unsplit) command 


The 

operation 


"spl ice-command" performs .just 
of the "split-command" above. 


the 


opposite 


Ctrl 


Y 

The 

character 
or until 
with the 
scrol1ing„ 


repeat command 

"repeat-command" repeats the next. command or 
t;yped unti .1 a predefined stop condi tion occurrs, 
a console key is pressed. This is used mostly 
previous/next. page commands for continuous 
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ctrl 0 oops command 

Occassionally, a line is inserted or deleted 
acc i d ent a 3. 1 y, h a 1 f a line c 1 eared b v mist a k e,, or some 
other major editing blunder is made. As the name implies, 
the "oops" command corrects most of these major editing 
errors. The "oops" command can be used to recover from 
the fo 11 owi nq cornmandss 


1 ) 

insert line command 

(sh i f t 1 NS ) 

2) 

d e.1 ete I ine comand 

(shift DEL) 

3) 

hack command 

(Ctrl H > 

4) 

to buffer command 

(Ctrl n 

5) 

front buffer command 

(ctr 1 F ) 

6 ) 

copy from buffer command 

(Ctrl U ) 

" 7 ) 

sp1 it line command 

(Ctrl J) 

8) 

s p 1 i c e c o m m a n d 

(Ctrl G) 
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Subcommands 


The subcommand is entered by typing ctrl-~V« The display 
will be cleared and a prompt "> will be issued. The 
•following commands may be typed in response. 


ST <return> 

EN <return> 


FL < ret.urn> 

LL <return> 


RT <return> 

PS (return> 


Make the current line the start of the 
file. < i . e „ , hack off the beginning) 

Make the current line the end of the 
•file. <i.e., hack off the end) 

Position the cursor on the first line 
of the file. 

Position the cursor on the last line 
of the file. 

Reset the TAB stops to their original 
settings. 

Enter the pattern search submode. The user 
will be prompted to enter the search string. 
The ctrl-L command will continue the search. 


IF fi1ename < return > 

Insert the specified file into the file 
just after the current cursor line. This 
is useful for pulling subroutines from 
another file. This can be stopped at any 
time by pressing a console key. 
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"A 


E d i t o r... C o m m a n d _. S u m m a r y 


Below is a quick reference list of all 
the video editor recognizes. 


the commands which 


Entering the Edit Mode: (executed outside of the edit mode) 


E DI r i n f i 1 e C. ou t. f i .1 e) ( - ) 

Enter the edit mode and edit "infile". If 
"outfile" is specified, send edited text 
t o " out file", ot h er wi se send i t " i n f i ]. e " . 


R e -• e d i t t h e 1 a s t f i 1 e e d i t. e d. 


WHERE 


#BUFS 


. INFO 


Enter the edit mode and position the 
cursor over the word that caused a 
c o m p i 1 a t i o n e r r o r. 


( # l i n e s - ) 

Sets the length (in lines) of the storaae 
buffer,, The default, is five,, 


Display memory allocation of the current file 
so that, it may be saved using the WRITE 
command, (used in case of a save error) 


Cursor Movement: (issued within the edit mode) 


Ctrl T 

Move cursor up one line, scrolling the 
file down one line if necessary. 

c t r I v' 

Move cursor down one line, scrol l :i. nq the 
file up one line if necessary. 

Ctrl 

M o v e c u r s o r 1 e f t o n e c h a r a c t. e r w r a p p x n q 
to the right edge if moved off the left. 

c t r 1 ■> 

M o v e c u r s o r r i g h t o n e c h a r a c t. e r , w r a p p i n 
to the left edge it moved off the right,, 

RETURN 

P o s i t i o n t h e c \ i r s o r a t t. h e h e g i n n i n q 
of the next line. insert line if at the 

end of the file. 

TAB 

Advance t.o nex t tabu 1 ar co 1 umn „ 
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File Editor 


Ctrl 

TAB 

Clear tab stop at current cursor location 

sh i f t 

TAB 

Set tab stop at current cursor location. 

Editing Commands; 

(issued within the edit mode) 

ctrl 

INS 

Insert one blank at cursor location, 
losing the last character on the line. 

Ctrl 

DEL 

Delete character under cursor, closing 
the line. 

sh i f t 

IMS 

Insert blank line above current line. 

shift 

DEL 

Delete current cursor line, closing the 
f i 1 e. 

ctrl 

M 

Insert blank line below current line. 

Ctrl 

I 

Togg1e insert-mode/rep1 ace-mode. 

(see full description of ctrl-I). 

BACKS 


Delete last character typed, if on the 
same line as the cursor. 

ctrl 

H 

Erase to end of line (Hack). 

ctrl 

V 

Enter the subcommand mode, (see below) 


Buffer Management; (issued within the edit mode) 


ctr 1 

T 

Delete .current, cursor line sending 
it TO the edit buffer for later use. 

ctrl 

F 

Take? the current buffer line and insert 
it above the current cursor line. 

Ctrl 

K 

Kopy current cursor line sending 
it to the edit buffer for later use. 

Ctrl 

U 

Take the current buffer line and copy 
it to the current, cursor line. Unkopy 

Ctrl 

R 

Roll the buffer making the next buffer 
line current. 

Ctrl 

B 

Roll the buffer Backwards making the 
previous buffer line on the screen current 

Ctrl 

C 

Clear the current buffer line and 
performs a ctrl-B. 


Notes the current buffer line is last line visible in the 
buffer window. 


1 
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File Editor 


Scrolling/Saving: (issued within the edit mode) 


Ctrl 

X 

Scroll the edit window up a line 
within the? file. 

c t r 1 

E 

Scroll the edit window down a line 
wi thin the f i 1e« 

c t r 1 

P 

Scroll the edit window up . 1.6 lines 
within the file. 

c t. r 1 

N 

Scroll the edit window down 16 lines 
w i t h i n t h e f i 1 e. 

c t r 1 

S 

Save the changes made to the current 
file and exit the edit, mode. 

c t r 1 

Q 

Quit the edit session forgetting all 
changes made to the current file. 

Special Keys: 

(issued within the edit mode) 

ESC 


Do not interpret the next key typed 
as any of the commands above. Send 
it. directly to the screen instead. 

c t r 1 

j 

Split the current, line into two lines 
at the point where the cursor is. 

c t r 1 

(B 

Splice (unsplit) the current line and 
the line above it. 

Ctrl 

0 

Cor r ect. s any ma,;i or ed :t t. i ng b 1 under s» 0op 

c t r 1 

!... 

Continue searching for the pa11ern enter 
i n t h e s u b c o m m a n d m o d e, L o o k 

Ctrl 

Y 

Enter the repeat mode. The next command 


or character typed will be repeated until 
a stop condition is met, or until a console 
key is pressed. Used most1v with ctrl-P, 
Ctrl -N» and the cursor commands. 

Subcommands: (entered in the subcommand mode) 


T h e s u b c omm a n d i s en t er e d b y t y p i n g c t r 1 - \>,, j h e d i s p 1 a y 
will be cleared and a prompt ( " jj ") mil be issued. The 
■following commands may be typed in response, 

ST <return> Make the current line the start of the 
file, (i.e.;, hack off the beginning) 


L X 1V 




File Editor 


EN (return) 


Make the current line the end of the 
file,, (i.e., hack off the end) 


FL -(return) 


Position the cursor on the first line 
of the file. 


LL <return) 


Position the cursor on the last line 
of the file. 


RT (return) Reset the TAB stops to their original 
settings. 

PS (return) Enter the pattern search submode. The user- 
will be prompted to enter the search string. 
The ctrl-L command will continue the search. 


IF fi1ename (return) 

Insert the specified file into the file 
just after the current cursor line. This 
is useful for pulling subroutines from 
another file. This can be stopped at any 
time by pressing a console key. 
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Screen;: 10 



Screen: 13 

0 

( valDOS: quans 

and * 

constants ) 

0 

( valDOS: arrays 

1 

7 ( GUAM )( 150 

LOAD 

) 

1 



7 ( CARRAY ) < 160 

LOAD 

) 

9 

4 CONSTANT MAXFL 

;r 

VOCABULARY DOS IMMEDIATE 

T 

128 CONSTANT 128 

4 

DOS DEFINITIONS 



4 


5 




5 

< addresses of fi 1 e buffers 

S 

LABEL FNFLD 

11 ALLOT 

6 

MAXFL 1+ ARRAY FLBUF 

"7 

QUAN FMCNT 

0 TO 

FNCNT 

7 

0 FLBUF MAXFL 1+ 2* ERASE 

8 

QUAN FNSEP 

0 TO 

FNSEP 

8 


9 

QUAN FNSWCH 

0 TO 

FNSWCH 

9 

( map of buffers in use ) 

10 

QUAN UN IT 

0 TO 

UNIT 

10 

MAXFL 2* 2 + ARRAY OPNSTT 

11 

QUAN DFLUNT 

0 TO 

DFLUNT 

11 

0 OPNSTT MAXFL 4*2+ ERASE 

12 

QUAN FNSEC 

0 TO 

FNSEC 

12 


13 

QUAN 7WILD 

0 TO 

7WIL.D 

13 

( the fi 1 ename "Dx:*" ) 

14 

QUAN ttENTRIES 

0 TO 

#ENTRIES 

14 

LABEL ALLNMS 

15 

QUAN #FREE 

0 TO 

#FREE —> 

15 

04 C, 68 C, 0 C, 58 C, 42 C, 


3 c n 

sen: 

11 


Sen 

een 

: 14 


0 

1 

( valDOS: quans 

and constants ) 

0 

1 

( • 

va1 DOS; error codes 

1 

QUAN 

DSKERR 

0 TO DSKERR 


1 

CONSTANT 

BADNME 

y % 

QUAN 

DIRBLK 

0 TO DIRBLK 

.... 

o 

CONSTANT 

BADUNT 

4 

QUAN 

FSMBL.K 

0 TO FSMBL.K 

4 


CONSTANT 

BADFSM 

u 

QUAN 

7FSMUP 

0 TO 7FSMUP 

er 

4 

CONSTANT 

FLEXST 

6 

QUAN 

7SAME 


6 

5 

CONSTANT 

DIRFUL 

7 

QUAN 

DIRFRE 


"7 

6 

CONSTANT 

DSKFUL 

8 

QUAN 

Ft...# 


9\ 

7 

CONSTANT 

AMBNME 

9 

QUAN 

TADR 


9 

8 

CONSTANT 

FL.DNE 

10 

QUAN 

# UN TRIM 


10 

9 

CONSTANT 

TMF'OPN 

1 1 

QUAN 

N 1 * 


1 1 

10 

CONSTANT 

EOFERR 

12 

QUAN 

N2$ 


12 

11 

CONSTANT 

FL.NOPN 

13 

QUAN 

DIRLDC 


13 

•j O 

CONSTANT 

BADFL# 

14 

QUAN 

WRKSPC 


14 

13 

CONSTANT 

FLWPRT 

1 

QUAN 

DOSTMP 


15 

14 

CONSTANT 

WRGARG 


Screens 12 

0 ( valDOS: quans and constants ) 

1 

2 VECT RDMOPN 

3 ASSIGN NO OF' TO RDMOPN 

4 

5 VECT RDMCLS 

6 ASSIGN NOOP TO RDMCLS 

"7 

8 VECT RDMSPC 

9 ASSIGN NOOP TO RDMSPC 

10 

11 VECT RDMENDF 

12 ASSIGN NOOP TO RDMENDF 

13 

14 VECT RDMWND 

15 ASSIGN NOOP TO RDMWND -.> 


Screen: 15 

0 ( valDOS: error codes ) 

1 15 CONSTANT FLOPM 

2 IS CONSTANT FLTBS 

4 HERE 1 AND ALLOT < even addr ) 

5 144 MAXFL * 192 + ALLOT 

6 HERE TO WRKSPC 128 ALLOT 

7 : TOPOM 741 S> 1- 

8 


9 : 

10 

1 1 

FSMAP 

WRKSPC 

128 - ; 

• ( 

— a ) 

12 ; 

13 

14 : 

DIRTBL. 

FSMAP 64 -- ; 

( 

— a ) 

BURBOT 


( 

— a ) 

15 

DIRTBL 

144 MAXFL * - 

"l 

— > 




Screen: 16 

0 C valDOSs error routines ) 

1 

2 s DOSERR ( # — ) 

3 TO DSKERR R > DROP 0 ; 

4 

5 : ?DOSERR ( f # — ) 

6 SWAP 0= 

7 IF 

8 R > DROP DOSERR 

9 END IF 

10 DROP ;; 

11 

12 s 2DSKERR ( f — ) 

13 0- IF R> DROP 

14 DSKERR DOSERR END IF ; 


Screens 19 

0 < valDOSs filename conversion > 
1 

2 s FNCON ( if; .- f } 

3 0 TO DSKERR 

4 COUNT SETSWCH GETUNIT 7DSKERR 

5 8 TO FNCNT 46 TO FNSEP 

6 FNFLD 11 BLANKS FNFLD 

7 BEGIN 

8 3 PICK C5> DUP FNSEP = 

9' IF 

10 2DROP FNFLD 7 + 

11 DUP 1+ 3 BLANKS 

12 3 TO FNCNT 0 TO FNSEP 

13 ELSE 

14 DUP 42 ( ) = 


Screens 17 

0 ( va1D0S: filename conversion ) 
1 

2 : GETSWCH < a c .. a c ) 

3 0 TO FNSWCH DUP 2 > 

4 IF 2Bl.JP + 2- C® 47 ( "/" ) « 

3 IF 

6 2 2DUP + 1+ C® 

7 TO FNSWCH 

8 END IF 

9 END IF ; 

10 

11 : BETUNIT ( a c — a c ) 

12 DFLUNT TO UNIT DUP 2 > 

13 IF OVER ® 14916 ( "Ds") = 

14 IF 

15 2- SWAP 2+ SWAP . 


Screen 
0 ( 

1 


7 

8 
9 

1 0 
1 1 
12 

13 

14 

15 


v a1D0S: flien a me c on version > 
IF 

OVER FNFLD 11 + OVER 
63 ( "?") FILL DROP 
ELSE 

DUP 48 < "0") < OVER 
90 ( "2") > OR OVER 
57 < "9") > 3 PICK 

65 C "A") < AND OR 
OVER 63 ( "?•') <> AND 
IF 2DR0P 2DROP 
BADNNE DOSERR 
END IF 
OVER C! 

END IF 


Screen: 18 

0 < valDOSs filename conversion ) 
1 

2 ELSE DUP 3 > 

3 IF OVER C® 68 C "D") = 

4 3 PICK 2+ C® 58 = AND 

5 IF OVER 1+ C® 49 ( "1") - 

£> DUP 0< NOT OVER 3 > NOT AND 

7 IF 

8 TO UNIT 3 •" SWAP 3 + SWAP 

9 ELSE 

10 2DR0P DROP E< AD LINT DOSERR 

11 END IF 

12 END IF 

13 END IF 

14 END IF 

15 END IF 1 ; .> 


Screens 21 

0 ( valDOSs filename conversion > 

1 FNCNT 1- DUP TO FNCNT 0< 

2 IF DROP 2DR0P 

3 BADNNE DOSERR 

4 ENDIF 

5 END IF 

6 1+ ROT 1+ ROT 1. ROT 

7 OVER 0- 

8 UNTIL 

9 2DROP DROP FNFLD C® 63 >« 

1.0 BADNNE ?DOSERR & TO 7WIL..D 
11 11 0 

12 DO 

13 FNFLD I -i- C® 63 == 

14 IF 1 TO 7WIL.D END IF 

15 LOOP 1 ; —> 





Screen 


Screen 




0 

•i 

( 

valDOS: alias 

def ini ticans 

) 

0 

I 

( 

valDOS: put free space 

map 

) 

.1 

N 

■ 

3PICK 


/ — 

n ) 

J. 

■ 

FSMFL.S 

( — 

) 

•3 


3 PICK ; 




“T 


7FSMUP 



4 






4 


IF 



5 

n 

FLBUF0 


( n — 

a ) 

5 


FSMAP FSMBLK 0 R/W 



6 


FLBUF ® ; 




6 


ENDIF 



7 






7 


0 TO 7FSMLJP 



8 

; 

FLINFO 


( — 

&. ) 

8 


0 TO FSMBLK ; 



9 


FL# FLBUFS) 

!» 



9 





1 0 






10 

: 

FSMUP 

< — 

) 

1 1 

S 

720* 720 * 

5 



11 


1 TO 7FSMUP ; 



12 

; 

256* 256 * 

«} 



12 





13 

; 

128- 128 - 

5 



13 

■ 

m 

DSKFLS 

( — 

) 

14 

; 

135- 135 - 

5 



14 


DIRFLS FSMFLS ; 



15 

s 

4* 2* 2* ; 



-> 

15 



- 

— > 


Screen; 23 

0 ( valDOS: get & put. directory ) 
1 

2 s DIRGET ( sector -. ) 

3 OFFSET S> OVER DR0 BLOCK 

4 TO DIRLOC OFFSET ! TO DI RBI....K ; 

5 

6 s DIRFLS ( -- ) 

7 FLUSH 0 TO DI RBI....K ; 

8 

9 : DIRIJP ( — ) 

10 UPDATE ; 

11 

12 : ENTRY ( unit # — ) 

13 1~ £3 /MOD 360 + 

14 ROT 720* + DIRGET 

15 16 * DIRLOC •+■ ; —> 


Screens 26 

0 ( valDOS: check directory ) 

1 


» 

CHKDIR 



( 

r*\ 

0 TO 

#EMTRIES 

0 TO 

#FREE 

4 

65 TO 

DIRF 

RE 0 

368 

360 

5 

DO 





t) 

I UNIT 72 

0 * + 

DIRGET 

7 

DIRL 

or: 12 

8 +• 

'DI RL 

OC 

8 

DO 





CT 

1 + 

1 TO 

7SAME 


10 

I C 

0 195 

AND 

66 

rr 

1 1 

IF 

11 0 




12 

DO 





13 

J 

I + 

5 + 

CS> FNFLD I 

14 

C 

£D DUP 

63 

( It r-y 

") = 

15 







Screen; 24 

0 ( valDOS: get. free space map ) 
1 

2 : FSMGET ( unit. . > 

3 720* 359 + 

4 DUP FSMBLK <> 

5 IF 

6 7FSMUP 

7 IF 

8 FSMAP FSMBLK 0 R/W 

9 END IF 

10 FSMAP OVER 1 R/W 

11 TO FSMBLK 0 TO 7FSMUP 

12 ELSE 

13 DROP 

14 ENDIF ; 

15 •-■•--> 


Screen: 27 

0 ( valDOS: check directory ) 

1 

2. IF DROP DUP END IF <> 

3 IF 0 TO 2SAME LEAVE ENDIF 

4 LOOP 7SAME 

5 IF 

6 DUP GENTRIES DIRTBL + C! 

7 1 AT #ENTRIES +! 

8 END IF 

9 ELSE 

10 DUP DIRFRE MIN TO DIRFRE 

11 1 AT ttFREE +! 

12 END IF 

13 16 /LOOP 

14 LOOP 

15 DROP #ENTRIES ; —> 



Screen: 28 

0 ( valDOSs allocate a sector ) 
1 

2 ALTSEC ( unit - C# t 1 /f ) 

3 FSMGET 

4 FSMAP 3 + ® DUP 

5 IF 

6 1- FSMAP 3 + ! 

7 0 -1 FSMAP 10 + 90 O+S 

8 DO 

9 I C® 

10 IF 

11 SWAP DROP DUP LEAVE 

12 128 I C® 

13 BEGIN DUP 128 AND 0= 

14 WHILE 2* ROT 1+ ROT 2/ ROT- 

15 REPEAT —> 


Screen: 31 


0 

1 

( val D 0 E>: f .i n d f r e e 

buffer ) 

1 

: NXTORN 

( 

— a ) 

r*% 

MAXFL 4* 0 



4 

DO 



5 

6 

I -144 * DIRTBL 16 
DO 

> + I 

0 

7 

I OPNSTT ® OVER 

= 


8 

IF DROP 0 LEAVE 

END IF 


9 

LOOP -DUP 



10 

IF DUP T' 0 



11 

DO I OPNSTT ® 0= 



12 

IF I OPNSTT ! 

LEAVE 

END IF 

13 

LOOP LEAVE 



14 

END IF 



15 

LOOP ; 


.> 


Screens 29 

0 ( valDOS: allocate a sector ) 
1 

2 DROP I SWAP TOGGLE 

5 ELSE 

4 8 + 

5 END IF 

6 1 /LOOP 

7 SWAP 0= . 

8 IF 

9 DROP BADFSM DOSERR 

10 END IF 

11 FSMUP 1 

12 END IF ; 

13 

14 

15 .- > 


Screen; 32 

0 < valBQSn flush file buffer ) 
1 

2 : FLFLS ( f ]. # . ) 

3 FLBUF® DUP 10 + C® 

4 IF 

5 DUP 8 + C® 720* 

6 OVER 5 + ® 4 

7 OVER 128- SWAP 0 R/W 

8 10 +■ 0 SWAP C! 

9 ELSE 

10 DROP 

1.1 END IF 5 

12 

1 3 

14 

15 .> 


Screen: 30 

0 < val DOS: release a sector ) 

1 

2 ; RELSEC ( unit # . ) 

3 SWAP FSMGET 

4 1+ 8 /MOD FSMAP 10 + + 

5 SWAP 128 

6 BEGIN 

7 OVER 

8 Wl-I ILE 

9 2/ SWAP 1- SWAP 

10 REPEAT 

11 SWAP DROP OVER C® 

12 OR SWAP C! 

13 FSMAP 3 4- DIJP ® 1.4- SWAP ! 

14 FSMUP ; 

15 .- 


Screen: 33 

0 ( val DOS: COPENII ) 

1 

2 : (OPEN) < $ . Ca # 13/0 ) 

3 PNCON 2DSKERR 

4 7WIL..D NOT AMBNME ?DOSERR 

5 CHKDIR FLDNE ?DOSERF 

6 0 MAX FT... 14 1 

7 DO 

8 I FLBUF® 0- 

9 IF I 4- LEAVE END IF 

10 LOOP 

11 -DUP TMFOPN 2D0SERR 

12 >R NXTORN DUP R FLBUF ! 

13 DUP 16 ERASE 

14 UNIT DIRTBL. C® ENTRY 

15 .> 





Screens 34 

0 ( valDOSs tOPEN 3 ) 

1 

2 OVER 5 CMOVE 

3 3 + DUP 3 1- OVER 2+ ! 

4 5 + UNIT OVER C! 1+ 

5 DIRTBL 03 SWAP C! 

6 R FLBUF3 128- DUP 

7 UNIT 720* OVER 133 + 

8 3 + 1 R/W R > 

9 RDMOPN 1 ; 

10 

11 
12 

13 

14 

15 —> 


Screens 37 

0 ( val DOS: CREAD 1 ) 

1 

2 : <READ) < adr cnt fl# .f ) 

3 TO FL# TO #UNTRN TO TADR 

4 FL# 1 < FL# MAXFL > OR 

5 NOT BADFL# 7D0SERR 

6 FLINFO FLNOPN 2D0SERR 

7 BEGIN 

8 FLINFO 7 + DUP 03 

9 OVER 8 - 03 = 

10 IF 

11 DUP 10 - DUP 03 3 AND 

12 256* SWAP 1+ 03 + -DUP 0= 

13 IF DROP EOFERR DOSERR ENDIF 

14 1- FL# FLFLS OVER 135- 

15 OVER 4 PICK 1+ 03 —> 


Screens 35 

0 ( valDOSs CCLOSE 3 ) 

1 


2 : (CLOSE) < -fl# — ) 

3 -DUP 

4 IF DUP ELSE MAXFL 1+ 1 ENDIF 

5 DO 

6 I DUP TO FL# FLBUF3 


~r 

IF 


8 

RDMCLS 

FL# FLFLS 

9 

FLINFO 

2+ 03 128 AND 

10 

IF 


11 

FLINFO DUP 8 + 03 

12 

OVER 

9 + 03 ENTRY 1+ 

13 

SWAP 

1+ 3 32767 AND 

14 

SWAP 

! DIRtJP DI PELS 

15 

END IF 



Screen 

s 36 

0 ( 

1 

valDOS: CCLOSE3 

o 

FLINFO 0 FL# FLBLJF 

y t 

0 OPNSTT 

4 

BEGIN 

5 

DUP 3 3PICK <> 

6 

WHILE 

'7 

2+ 

B 

REPEAT 

9 

SWAP DROP 0 SWAP 1 

1 0 

END IF 

1 1 

LOOP ; 


12 

13 

14 

15 


Screens 38 

0 ( valDOSs CREAD 3 ) 

1 

2 720* + 1 R/W 

3 OVER 2- I 0 OVER 0! 

4 ENDIF 

5 DUP 8 - 03 OVER 03 - 

6 #UNTRN OVER U< 

7 IF DROP ttUNTRN END IF 

8 DUP 3PICK 7 + DUP 3 

9 ROT + SWAP ! 

10 OVER 135- 3PICK 03 + 

11 TADR DUP 4 PICK + TO TADR 

12 3PICK CMOVE ttUNTRN OVER - 

13 TO #UNTRN OVER 03 + 

14 SWAP 0! #UNTRN 0= 

15 UNTIL 1 ; —> 


Screens 39 

0 ( valDOSs CWRITE 3 ) 

1 

2 s (WRITE) ( adr cnt fl# — f ) 

3 TO FL# TO tttJNTRN TO TADR 

4 FL# 1 < FL# MAXFL > OR 

5 NOT BADFL# ?DOSERR 

6 FLINFO -DUP FLNOPN 7D0SERR 

7 03 32 AND NOT FLWPRT 7D0SERR 

8 BEGIN 

9 FLINFO 7 + DUP 03 125 = 

10 IF 

11 DUP 10 - DUP 

12 03 3 AND 256* SWAP 1+ 

13 03 + -DUP 0= 

14 IF DUP 1+ 03 ALTSEC 0= 

15 —> 



Screen 

: 40 


Screen 

is 43 

0 ( 

1 

valDOSs [WRITE! 

) 

0 ( 

vail. DOS: [RDB II 

IF 


.1 

P S 

(RDB) ( fl# — - Cb 

y, 

DROP DSKFUL DOSERR 



DUP TO FL# 

4 

END IF 


4 

1 < FL# MAXFL > OR 

5 

DUP 1+ 255 AND 


5 

NOT BADFL# 7D0SERR 

6 

OVER 1+ 32767 AND 256 


6 

FLIMFO FLNOF'N 7D0SERR 

7 

/ 4 PICK 2+ CO 1- 4* 


7 

FLINFO 7 + 

8 

> R R OR 4 PICK 10 - C! 


8 

DUP CO OVER 8 -• CO w 

o 

SPICK 9 - C! 1 3PICK 


9 

IF 

1 0 

3 + C! FL# FLFLS OVER 


10 

DUP 10 - DUP 

1 1 

135- 128 ERASE R> 


11 

CO 3 AND 256 * 

12 

SPICK 10 - Cl OVER 6 - 


12 

SWAP 1+ CO + -DUP 0= 

13 

DUP 0 1+ 32768 OR SWAP 

1 

13 

IF 

14 



14 

DROP EOFERR DOSERR 

15 



15 

END IF 

Screen 

r, 41 


Screen 

; 44 

0 ( 

valDOSs [WRITE] 

) 

0 ( 

vail. DOS: [RDB] 

1 



1 


2 

ELSE 



1- FL# FLFLS 

~r 

FL# FLFLS 1- OVER 


..... 

OVER 135- OVER 

A 

Ay 

135- OVER 4 PICK 


4 

4 PICK 1+ CO 720* + 

b 

1+ CO 720* + 1 R/W 


5 

1 R/W 


END IF 


6 

OVER 2- I 0 OVER C! 

“7 

/ 

OVER 2 . ! 0 OVER Cl 


7 

END IF 

8 

END IF 


8 

DUP CO SWAP 

9 

125 OVER CO - 


Q 

OVER 1+ OVER Cl 

1 0 

ttUNTRN OVER IK 


10 

1 OVER 7 + 4-' 

11 

IF DROP ttUNTRN END IF 


11 

135- + CO 1 ; 

12 

DUP SPICK 7 +■ DUP 


12 


13 

0 ROT 4 SWAP ! 


13 


14 

15 

OVER 135- SPICK. CO + 


14 FORTH DEFINITIONS 

i i "-; 
j. •_.* 

Screen 
0 < 

: 42 

valDOSs [WRITE] [ WRB'J 

) 

Screen 

0 

: 45 

1 



1 


n 

TADR DUP 4 PICK + TO TADR 


o 


"T 

SWAP 3PICK CMOVE 


•._« 


4 

OVER CO OVER + DUP 


4 


5 

4 PICK Cl SPICK 8 . 


5 


6 

7 

DUP CO ROT MAX SWAP CI 
ttUNTRN SWAP - TO ttUNTRN 


6) 

7 


8 

1 SWAP 3 + Cl 


s 


9 

ttUNTRN 0= 


9 


10 

UNTI L 1 ; 


1 0 


11 

12 : 

(WRB) < b fItt -.. f 

) 

1 1 

1 2 


13 

SWAP WRKSPC C! 


13 


14 

WRKSF'C 1 ROT (WRITE) ; 


14 


15 

— - 

- > 

15 
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49 


Screen: 
0 


1 


Screen: 


0 

1 


4 

•—i 

6 

"7 

/ 

8 
9 
10 
1 1 

12 

13 

14 

15 


4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 


Screen: 
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1 


47 


4 

5 

6 

7 

8 
9 

10 

11 
12 
13 
14- 


Screen; 50 

0 ( valDOS; CWIND3 

1 ’( DOS DOS )( ) 

2 ’ < FNFLD > ( 10 LOAD ) 

4 DOS DEFINITIONS 

5 

6 ; (WIND) ( f fl# --- f 

7 TO FL# TO DOSTMP 

8 FL# 1 < FL# MAXFL > OR 

9 NOT BADFL# 2D0SERR RDMWND 

10 FLINFO DUP FLNOPN 7D0SERR 

.11 DOSTMP 

12 IF ( rewinding ) 

13 FL# FLFLS DUP 3 + S> 1- 

14 DUP 3PICK 5 + S> < > 

15 
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1 0 
1 1 
12 
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15 


Screen: 51 

0 ( valDOS: CWIND3 
1 

2 IF 

3 DUP 3PICK 5 + ! OVER 8 + 

4 C5> 720* + OVER 128- 

5 SWAP 1 R/W 

6 ELSE DROP ENDIF 

7 0 OVER 7 + C! 

S 0 SWAP 14 + ! 

9 ELSE ( to end of file ) 

10 DROP 

11 BEGIN 

12 WRKSPC 128 FL# (READ) 0= 

13 LINT IL 

14 DSKERR EOFERR = 2DSKERR 

15 END IF 1 ; 




Screen 
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0 < valDOSs CENTER] ) 

1 

2 : (ENTER) ( * — f ) 

3 FNCON 7DSKERR 

4 ?WILD NOT AMBNME 7D0SERR 

5 CHKDIR 0= FLEXST 7D0SERR 

6 #FREE DIRFUL 7D0SERR 

7 UNIT ALTSEC DSKF'UL 7D0SERR 

8 DUP 1+ TO FNSEC 

9 WRKSPC 1.28 ERASE 

10 DIRFRE 1- 4* WRKSPC 

11 125 + C! WRKSPC 

12 SWAP UNIT 720* + 0 R/W 

13 UNIT DIRFRE ENTRY 

14 66 OVER C! 1+ 1 OVER ! 2+ 

15 — > 


Screen: 53 

0 ( valDOSs CENTER"! > 

1 

2 FNSEC OVER 1 2+ 

3 FNFL.D SWAP 11 CMOVE 

4 DIRLJP FSNUP 1 ; 

5 

6 

“7 

/ 

8 

9 

10 
11 
12 

13 

14 

15 ..> 


0 < valDOSs IISPACE! ) 

1 

2 IF 

3 DROP DSKERR DOSERR 

4 END IF 

5 ELSE 

6 ROT DROP SWAP DUP 

7 CS) MINUS OVER 7 + +! 

8 0 SWAP C! 

9 ENDIF 

10 END IF 

11 128 /MOD 

12 BEGIN DUP ( space forward > 

13 WHILE 

14 WRKSPC 128 FL# (READ) 0= 

15 — > 
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0 ( valDOSs CSPACE! ) 

1 

2 IF 

3 2DROP DSKERR DOSERR 

4 ENDIF 

5 1 - 

6 REPEAT 

7 DROP WRKSPC SWAP 

8 FL# (READ) 7DSKERR 

9 1 ; 

10 

1 1 
12 

13 

14 
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0 ( valDOSs C SPACE! ) 

1 

2 s (SPACE) ( cnt f1# -. f ) 

3 TO FL# 

4 FL# 1 < FL# MAXFL > OR 

5 IF DROP BADFL# DOSERR ENDIF 

6 FLINFO 0= 

7 IF DROP FLMOPN DOSERR ENDIF 

E5 RDMSPC DUP 0< ( backwards ) 

9 IF 

10 FLINFO 7 + DUP CS) 

11 3PICK + DUP 0< 

12 IF 

13 DROP 7 •+• 0 + 

14 0 MAX 1 FL# (WIND) 0= 

15 
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0 ( valDOSs C70PENI > 

1 

2 s ( "'open) ( t> - i:-f ii/0 ) 

3 FNCON 7DSKERR 

4 7WILD NOT AMBNME 7D0SERR 

5 CHKDIR FLDNE •■’DOSERR 

6 UNIT DIRTBL CS) 256* + 

7 0 MAXFL 1+ 1 
S DO 

9 I FLBUFS) -DUP 

10 IF 8 + 3 3PICK ~ 

11 IF 1+ LEAVE END IF 

12 END IF 

13 LOOP 

14 SWAP DROP 1 s 

15 .> 






Screen 


: 58 

0 ( val DOS: IIREN3 ) 

1 

2 ; (REN) ( $n f>o — f ) 

3 TO Nlf> TO N2$ 

4 N2* FNCON 7DSKERR 

5 7WILD NOT AMBNME 7D0SERR 

6 CHKDIR 0= FLEXST 7D0SERR 

7 FNFLD WRKSPC 11 CMOVE 

8 UNIT TO DOSTMP 

9 Nl$ FNCON 7DSKERR 

10 7WILD NOT AMBNME 7D0SERR 

11 DOSTMP UNIT = BADUNT 7D0SERR 

12 CHKDIR FL.DNE 7D0SERR 

13 UNIT DIRTBL C® ENTRY C® 

14 32 AND 0= FLWPRT 7D0SERR 

15 --> 


Screen: 61 

0 ( valDOS: CLOCK3 CUNLOCK3 ) 

1 

2 : (DOLCK) ( $ opt — f ) 

3 TO DOSTMP (70PEN) 7DSKERR 

4 NOT FLOPN 7D0SERR 

5 DOSTMP UNIT DIRTBL C® 

6 ENTRY DUP C® ROT 

7 IF 32 OR ELSE 223 AND ENDIF 
S SWAP C! DIRUP 1 s 

9 

10 : (LOCK) ( % — -f ) 

11 1 (DOLCK) 7DSKERR 1 ; 

12 

13 : (UNLOCK) ( $ — f ) 

14 0 (DOLCK) 7DSKERR 1 ; 

15 .- > 
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0 ( valDOS: CREN3 CKILL3 ) 

1 

2 WRKSPC UNIT 

3 DIRTBL C® ENTRY 5 + 

4 11 CMOVE DIRUP 1 ; 

5 

6 ; (KILL.) < $ -.f ) 

7 (70PEN) 7DSKERR 

8 NOT FLOPN 7D0SERR 

9 UNIT DIRTBL C® ENTRY 

10 DUP C® 32 AND 

11 IF DROP FLWPRT DOSERR ENDIF 

12 DUP 3 + ® 1- 

13 BEGIN 

14 WRKSPC OVER 

15 UNIT 720* + 1 R/W .> 


Screen: 62 

0 ( valDOS: CENDF3 ) 

1 

2 : (ENDF) ( fltt — f ) 

3 TO FL# 

4 FL# 1 < FL# MAXFL. > OR 

5 NOT BADFL# 7D0SERR 

6 FLINFO -DUP FLNOPN 7D0SERR 

7 DUP C® 32 AND 

8 IF DROP FLWPRT DOSERR ENDIF 

9 DUP 7 + C® OVER 1- C! 

10 DUP 2- DUP C® OVER 1- C® 

11 3 AND ROT DUP 11 4- C® 

12 1- 4* SWAP 1- I 1 4 

13 PICK 10 + C! 

14 ROT 8 4 C® < ROT 


0 ( 

1 


: 60 
valDOS: 


C !< ILL 3 


UNIT SWAP RELSEC 


Screen: 63 

0 ( valDOS: CENDF3 
1 

2 BEGIN 


) 


3 WRKSPC 125 + DUP 

4 14 - Co) DUP ROT C® 

5 3 AND DUP < ROT 

6 256* 4- 1-- < ROT OR 0= 

7 UNTIL. 

8 DROP 128 SWAP C! 

9 DIRUP 1 ; 

1 0 

11 

12 

13 

14 

15 


3 2DUP OR 

4 WHILE 

5 256* + l- OVER 720* 

6 OVER -i- WRKSPC SWAP 1 R/W 

7 OVER SWAP RELSEC 

8 WRKSPC 126 + DUP C® 

9 SWAP 1 - C® 3 AND 

10 FLINFO 14 - DUP ® 

11 1- 32768 OR SWAP ! 

12 REPEAT 

13 2DR0P DROP RDMENDF 1 ;; 

14 

15 FORTH DEFINITIONS 
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Screens 70 

0 ( valDOSs quans and vects ) 

1 ’( DOS DOS ) ( ) 

2 ? ( (WIND) )( 50 LOAD ) 

3 ' ( $- ) ( s *. COUNT TYPE ; ) 

4 ? < +Y/N )( 142 LOAD ) 

5 

6 QUAN FLFL# QUAN FLCNT 

7 QUAN ED#IN 0 TO ED#IN 

8 LABEL FLNME 16 ALLOT 

9 VECT *ECHO 

10 ASSIGN DROP TO *ECHO 

11 

12 : ECHO ( f — ) 

13 IF ASSIGN EMIT 

14 ELSE ASSIGN DROP 

15 END IF TO *ECHO ;; 


Screens 71 

0 ( valDOSs argument, evaluation ) 

1 


u 

GETVAL DOS 

( 

$ -• 

-• v ) 

y t 

WRKSPC 34 BLANKS 




4 

WRKSPC OVER CS> 1 + 

CMOVE 


5 

WRKSPC LATEST (FIND) 




IF 




‘7 

DROP CFA EXECUTE 



a 

ELSE 




9 

WRKSPC NUMBER DROP 



10 

1 1 

12 s 

END IF 5 




GETARGS 


( . 

- $ ) 

i -r 

32 WORD HERE 1 OVE 

R 5) 

1 = 


14 

IF 2DROP 0 END IF 0 

84 

C8 


15 

40 # 85 5) + 88 S) + 

C ! 


■—> 
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0 ( valDOSs error routines ) 

1 

2 : CMDERR DOS < err — > 

3 CR DUP TO DSKERR 4 /MOD 

4 696 + WRKSPC SWAP 1 R/W 

5 32 * WRKSPC + 32 -TRAILING 

6 TYPE CR SP! DSKFLS QUIT ; 

7 

8 : 7CMDERR ( f err — ) 

9 SWAP 0= IF CMDERR ENDIF DROP ; 
10 

11 s 2WRBARG DOS ( f — ) 

12 WRGARG 7CMDERR ? 

13 

14 : 7SYSERR DOS ( f -- ) 

15 DSKERR 7CMDERR ; —> 
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0 ( valDOSs CONFN ) 

1 

2 LABEL FNAME 16 ALLOT 

4 s CONFN DOS ( a u — % ) 

5 FNAME 1+ 68 OVER C! 

6 1+ SWAP 49 + OVER C! 

7 1 + 58 OVER C! 

8 1+ OVER 8 -TRAILING 

9 >R OVER R C MO VIE R> + 

10 46 OVER Cl 1 + SWAP 8 + 

11 3 -TRAILING >R OVER R 

12 CMOVE R + R> 0 — - 

13 FNAME 1+ - FNAME 

14 >F; R C! R > ; 

15 — > 


0 ( va 1 D0S:: argument; evaluation ) 
1 

2 s GETARG ( delm . $ 1 $ 13/0 ) 

3 DOS OVER COUNT 

4 BEGIN 


0 ( valDOSs FLOAD support ) 

1 

2 s (SKIP) DOS ( n fl# — ) 

3 FNSWCH 67 ( "C"> = 

4 IF 


Oj 

DUP 0# 3PICK C5) 


5 

ED#IN OVER (SPACE) 7SYSERR 

6 

5 PICK <> AND 


6 ) 

END IF 

7 

WHILE 1- SWAP 1 + SWAP 


7 

SWAP 

8 

REPEAT 


8 

BEGIN -DUP 

9 

ROT DROP -DUP 


9 

WHILE 1. 

10 

IF 


10 

BEGIN 

11 

DUP 1- SPICK C! ROT 


1 . 1 . 

OVER (RDB) 7SYSERR 

12 

DUP Co) ROT - OVER C! 1 


12 

155 == 

1 3 

ELSE 


13 

LINT 11. 

14 

DROP 0 ENDIF ; 


14 

REPEAT 

15 


— > 

15 

DROP ; 




0 < valDOSs FLOAD support 
1 


2 s NXTCHR DOS ( — Cc 13/0 ) 

3 7TERMINAL 0= STATE o> 0# 

4 OR EOFERR 7D0SERR 

5 FLFL# (RDB) 7DSKERR 

6 1 AT FL.CNT +! DUP *ECHO 

7 DUP 155 = 

8 IF 

9 DROP BL 

10 FLCMT 0 TO FLCMT 39 = 

11 IF 

12 DROP [ LATEST PFA OFA , 3 

13 7DSKERR 

14 END IF 

15 END IF 1 ; —) 
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0 ( valDOSs FLOAD ) 

1 

2 7 WORD ! 7 FWORD 7 WORD 2+ - 

3 WORD 2 + ( ELK 5> >R 

4 FL.CNT >R 0 ELK ! 

5 DUP FLNME 16 CMOVE 

6 (OPEN) 7SYSERR 

7 TO FLFL# DROP 

8 FLFL# (SKIP) OR INTERPRET 

9 FLFL# (CLOSE) DIRFLS 

10 R > TO FLCNT R» ELK ! 

11 7 WORD R > OVER 

12 2+ I R > SWAP ! 

13 R > TO FLFL# ; 

14 

15 .> 


Screen: 77 

0 < valDOSs FLOAD support ) 

1 

2 : FWORD DOS ( c .- ) 

3 HERE 34 BLANKS HERE 1+ DUP 

4 BEGIN 

5 DROP NXTCHR DUP 

6 DSKERR EOFERR = OR 7SYSERR 

7 0“ IF 0 END IF 

S DUP 4 PICK <> 

9 UNTIL 

10 BEGIN 

11 OVER Cl 1+ 

12 TOPOM 32 . OVER U> 

13 FL...TBG 7CMDERR 

14 NXTCHR DUP 


Screen: 80 


0 ( valDOSs 
1 


2 : FIXWORD 


3 0 •" ELK 

4 7 o> CFA 


L0AD r edef :i. ned 


DOS 

CFA WORD ! 

7 WORD 2+ ! ; 



6 7 FIXWORD CFA 7 QUIT ! 

"7 

8 : LOAD DOS ( n . ) 

9 7 WORD DS> >R >R FIXWORD DROP 

10 LOAD R> R> 7 WORD Dl ; 

11 

12 s (7L0ADING) 

13 0= 7 WORD 0 7 BRANCH CFA <> 

14 AND ; 7 (7L0ADIN6) CFA 

15 7 7L0ADING 4 + | — ••> 


Screens 78 
( valDOSs 


0 

1 


FLOAD 


DSKERR EOFERR « 
0 = IF 0 ENDIF 
DUP 4 PICK = OV 
UNTIL 
ROT 2DR0P 


OR 7SYSERR 
IR 0™ : OR 


HERE 1+ 


HERE C! 


Screens hi 

0 ( valDOSs. DIR 
1 

2 s DIR DOS ( - 

3 DFLUNT 49 + ALLNMS 2+ C! 

4 GETARGS 0= IF ALLNMS ENDIF 

5 DUP 1+ Co) 248 AND 48 = 

6 IF 

7 1+ Co) 15 AND 48 + ALLNMS 


8 



8 

2+ C! ALLNMS 

9 s 

FLOAD DOS 

( .- ) 

9 

END IF 

10 

GETARGS 7WRGARG 44 

GETAR6 

10 

FNCON 7SYSERR UNIT FSMGET 

11 

IF SWAP SETVAL 1- 

3 MAX 

11 

CR CR Files oris " 

12 

ELSE 0 ENDIF 


12 

FSMAP 104 + 

13 

SWAP FLFL# >R 


13 

BEGIN 

14 

7 WORD DUP 3 >R 2+ 

o) >R 

14 

DUP CD .DUP 

15 

Cl 7 BRANCH CFA 3 L 

ITERAL — > 

15 

WHILE 





Screen: 82 

0 ( valDOSs DIR ) 

1 EMIT 1+ 

2 REPEAT 

3 DROP CR OR 

4 ." NAME EXT SIZE S 

5 EC ATTR " CR 

11 -j -} j 1 — .4 4 1-—4 1— 1—4. 

7 —I-+-+-!•-+' " 

8 CR CR CHKDIR DUP 

9 BEGIN 

10 DUP 0# 2TERMINAL 0= AND 

11 WHILE 

12 2DUP - UNIT SWAP DIRTBL + 

13 C8 ENTRY SPACE DUP 5 + 8 

14 TYPE DUP 13 + C® 32 <> 

15 IF 46 EMIT --> 


Screens 85 

0 ( valDOSs COPY 
1 

2 : COPY DOS ( - 

3 GETAR 6 S 7WRGAR0 

4 61 GETARG 7WRGAR6 

5 DUP (ENTER) 0= 

6 IF 

7 DSKERR FLEXST = 7SYSERR 

8 ENDIF 

9 DUP (70PEN) 7SYSERR 

10 NOT FLOPN 7CMDERR 

11 (OPEN) 7SYSERR 

12 <ROT DROP OVER 

13 FL.BUF0 CD 32 AND 

14 0= FLWPRT 7CMDERR 

15 


Screen: 83 

0 ( valDOSs DIR 
1 

2 ELSE SPACE ENDIF 

3 DUP 13 + 3 TYPE 

4 DUP 1+ 5) 7 . R 

5 DUP 3 - 1 - 3 6 . R 

6 4 SPACES C0 DUP 32 AND 

7 IF 76 ( "L") EMIT ENDIF 

8 16 AND IF 82 ( "R"> EMIT 

9 END IF 1~ CR 

10 REPEAT 

1 1 CR FSMAP 3 + © „ 

12 „" sectors free." CR CR 

13 DSKFLS 2DR0P ; 

14 

15 
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0 ( valDOSs COPY 
1 

2 FNSWCH 65 ( "A") = 

3 IF 

4 0 3PICK (WIND) 7SYSERR 

5 ENDIF 

6 BEGIN 

7 0 >R 44 ( ",") GETARG 0= 

8 IF DUP R > 1 + >R END IF 

9 (OPEN) 7SYSERR SWAP DROP 

10 BEGIN 

11 WRKSPC 128 3PICK (READ) 

12 DROP ttUNTRN 128 < > 

13 WHILE 

14 WRKSPC 128 #UNTRN - 

15 


Screen: 84 

0 ( valDOSs OPEN? ) 

1 

2 : OPEN? DOS ( . ) 

3 CR 0 OUT ! MAXFL 1+ 1 

4 DO I FL.BUF0 .DUP 

5 IF 8 + DUP C0 

6 SWAP 1 + C0 

7 I 0 <# # # #> TYPE 

8 OVER TO UNIT ENTRY 

9 5 + UNIT CONFN 

10 2 SPACES *. CR 

11 ENDIF 

12 LOOP 

13 DIRFLS OUT 0 0= 

14 IF ." No files open" CR ENDIF 

15 CR ; 
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0 ( valDOSs COPY RENAME 
1 


0 

5 PICK (WRITE) 

7SYSERR 


REPEAT 


4 

(CLOSE) P> 


5 

UNIT IL 


6 

CR CR DROP DUP 


7 

(ENDF) ?SYSERR 


O 

O 

(CLOSE) DSKFLS ; 


10 : 

RENAME DOS 

( 

11 

GETARGS 2WRGARG 


12 

61 GETARG 7WRGARG 


13 

SWAP (REN) 7SYSERR 


14 

CR ." File renamed 

" CR CR 

15 

DSKFLS ;; 
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0 ( valDOSs system words ) 

1 



GUAM WLDFLG 

QUAN SWITCH 

T 

VECT DISKOP 

VECT Hi OUT 

4 

GUAM TEMP 


6 

s (CMDPAR) DOS 

( - 

7 

GETARBS 7WRGARG 

8 

BEGIN 


9 

0 >R 44 ( 

","> GETARG 0= 

1 0 

IF DUP R> 

1 + >R ENDIF 

1 1 

DUP TO N1 Hi 

F'NCON FNSWCH 

12 

TO SWITCH 

?WILD TO WLDFLG 

13 

IF CHKDIR 

DUP DUP 0= 

14 

IF 


15 

FNFLD 

UNIT CONFN 


Screens 91 

0 ( valDOSs system words 
1 

2 . " is " ^OUT 

3 END IF 

4 ELSE 

5 DROP 

6 END IF 1- 

7 REPEAT 

8 DROP 

9 ELSE 

10 OR 0 OUT ! Ml Hi Hi. 

11 18 OUT 0 . SPACES 

12 ." is il 1 egai" 

13 END IF R> 

14 UNTIL 

15 DROP CR CR DSKFLS r, 
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0 

1 

( valDOSs system words ) 

0 

1 

o 

< 

v a1 DOS: KILL 

LOCK 

CR 0 OUT 

! 

- 

SKILL ." kill 

il „ 

? 


18 OUT 0 - 

- SPACES 

..... 



4 

. 11 is non-existent" 

4 

N 

N 

KILL DOS 


! j 

END IF 


5 


ASSIGN (KILL) 

TO DISKOP 


BEGIN -DUP 


6 


ASSIGN SKILL 

TO HiOUT 


WHILE 


■y 


(CMDPAR) 5 


8 

DIRTBL OVER - 3PICK + 

8 



9 

C® UNIT SWAP ENTRY 5 + 

Q 




10 

UNIT CONFN 

1 WLDFLG 

10 

• 

TLOCK ." lock 

II n 

5 

11 

SWITCH 78 ( "IT} <> * 

1 1 



12 

IF DROP CR 

HiOUT SPACE 

12 

;; 

LOCK DOS 


1 T 

X 

DUP Hi „ 1 

1 ? " +Y/N 

13 


ASSIGN (LOCK) 

TO DISKOP 

14 

END IF 


14 


ASSIGN HiLOCK 

TO TOUT 

15 

0 OUT 1 


15 


(CMDPAR) ;; 



Screen 
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Scr 

een:: 93 

0 ( 

valDOSs 

system words ) 

0 

( valDOSs UNLOCK SETUNIT 

'~y 


II 

- Di.JP DISKOP 0— SWAP CR 

J. 

•*3 

: Hi UNLOCK . " unlock" ; 




$. 18 OUT S) - SPACES 

y. 

4 



IF 

4 

: UNLOCK DOS 

5 



DSKERR FLOPN = 

5 

ASSIGN (UNLOCK) TO DISKOI 

6 



IF 


ASSIGN HiUNLOCK TO TOUT 

7 



. " is open" 

"7 

(CMDPAR) 5 

8 



ELSE 

8 


9 



DSKERR FLWPRT = 

9 


10 



IF 

10 

s SETUNIT DOS 

11 



is locked" 

1 1 

GETARGS 2WRGARG GETVAL 

12 



ELSE ." is ???" 

12 

DUP .1. >~ OVER 4 <= AND 

13 



END IF 

13 

BADUNT 7CMDERR 

14 



END IF 

14 

1 . TO DFLUNT CR q 

15 



ELSE —> 

15 








Screen; 94 

0 < valDOS; PRINT 
1 

2 : PRINT DOS ( — 

3 GETARBS 7WRGARG 44 GETARG 

4 IF SWAP GETVAL 1- 0 MAX 

5 ELSE 0 ENDIF SWAP 

6 (OPEN) 7SYSERR SWAP DROP 

7 DIJP <ROT OVER TO TEMP (SKIP) 

8 FNFLD UNIT CONFN 

9 OR OR File; " $. OR OR 

10 FNSWCH 78 <> DUF' TO FNSWCH 

11 TEMP l-i- * TO TEMP 

12 BEGIN 

13 0 ?TERMINAL FNSWCH * 0 = 

14 IF DROP DUP (RDB) END IF 

15 


Screen: 97 

0 ( valDOS: 


READ 


1 
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5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 


READ DOS ( 

65535 GETARGS 7WRGARG 
44 GETARG 7WRGARG 
SWAP 44 GETARG 
IF 

SWAP 4 ROLL DROP 
GETVAL < ROT 
END IF 

GETVAL < ROT 

1 TO TEMP FLOPEN (READ) 

0= DSKERR EOFERR <> 

AND NOT 7SYSERR 

TEMP IF FL# (CLOSE) ENDIF 

CR DSKFLS ; 


o 

6 

7 

8 

9 

10 
11 
12 

14 

15 


( valDOS: PRINT 
WHILE 

FNSWCH 1 = 

IF 0 TO FNSWCH TEMP 
IF 

TEMP 0 

<# # # # # #> TYPE 
SPACE 1 AT TEMP +! 
END IF 
END IF 

DUP EMIT 155 ^ TO FNSWCH 
REPEAT 
(CLOSE) 

CR DSKFLS 


WRITE 
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0 ( valDOS: 

1 

2 s WRITE DOS ( - 

3 GETARGS 7WRGARG 

4 44 GETARG 7WRGARG 

5 SWAP 44 GETARG 7WRGARG 

6 GETVAL SWAP GETVAL ROT 

7 2 TO TEMP FLOPEN (WRITE) 0 = 

8 IF 

9 DSKERR FLWF'RT - 7SYSERR 

10 FL# (CLOSE) FLWF'RT CMDERR 

11 ENDIF 

12 TEMP IF 

13 FL# (ENDF) 7SYSERR 

14 FL# (CLOSE) 

15 END IF CR DSKFLS s 
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13 

14 

15 


valDOS: read / wr i t e ut .i. 1 :i. t y ) 


FLOPEN. DOS ( % . 

DUP 1+ C® DUP 240 AND 48 = 

IF 

15 AND SWAP DROP 0 TO TEMP 
ELSE 

DROP TEMP 2 AND 
IF DUP (ENTER) 0= 

IF 

DSKERR FLEXST = 7SYSERR 
END IF 
END IF 

(OPEN) 7SYSERR SWAP DROP 
END IF ; 


Screen; 99 

0 ( valDOS: CLOSE 
1 

2 : CLOSE DOS 

3 0 GETARGS 

4 IF 

5 SWAP DROP GETVAL 

6 END IF 

7 (CLOSE) CR DSKFLS 

8 
9 

10 
11 
12 

13 

14 

15 
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Screen: 107 Screens 110 

0 0 ( Utiles OPEN ENTER 

1 1 

2 2 * < FLFLtt ) < 70 LOAD ) 


4 

5 

6 

“7 

/ 

8 
9 
10 
11 
12 

13 

14 

15 


4 s OPEN DOS 

5 GETARGS 7WRGARG 

6 (OPEN) 7SVSERR 

7 CR , " File access #" 

8 DROP CR DSKFLS ; 

9 

10 s ENTER DOS 

11 GETARGS 7WRGARG 

12 (ENTER) 7SYSERR 

13 CR DSKFLS ; 

14 

15 
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0 
1 


4 

5 

6 

7 

8 


10 

11 

12 


Screen: 111 

0 < Utils: FSPACE: ENDFII. 
1 

2 : FSPACE DOS 

3 GETARGS 7WRGARG 

4 44 GETARG 7WRGARG 

5 6 ETVAL. SWAP GETVAL 

6 SWAP (SPACE) 7SYSERR 

7 CR DSKFLS ; 

8 

9 s ENDFIL DOS 

10 GETARGS 7WRGARG 

11 GETVAL (ENDF) 7SYSERR 

12 CR DSKFLS ;; 



Screen; 112 


Screens 11! 


0 

( Utils; 

FDUMP 

system words 

) 

0 

( Utils: FDUMP 

1 





1 


2 

; PSPACE 


( .- 

) 


IF 


PFLA 6 5) 

DUP 254 AND 


7\ 

FNSWCH 16 = 2 

4 

PFL.AG ! 

SPACE 

PFL.AG ! % 


4 

OUT 3 - SPACE 

5 





5 

DUP TEMP - TE 

o 

; P. 


( c — 

) 

6 

DO DUP I + C5> 

"7 

127 AND 

DUP 



“7 

LOOP DROP 

8 

32 < OVER 

( Ctrl 7 ) 


8 

END IF 

9 

124 > 0 

2 

( clear..,?) 


9 

REPEAT 

10 

IF 




10 

2DROP R > NOT 

1 1 

DROP 

46 ( " 

. " ) 


11 

7TERMINAL OR 

12 

END IF 




12 

UN TIL. 

13 

EMIT ; 




13 

DROP (CLOSE) 

14 





14 

CR BASE ! DSKFLS ; 

15 



.... 

... 

15 
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0 ( 

UtiIs: FDUMP 

) 

9 Z 

FDUMP DOS 

( — •»" j 

7 \ 

GETARGS 7WRGARG 


4 

(OPEN) 7SYSERR 


5 

FNFLD UNIT CONFN 


6 

CR CR ." Files " $. t 

:r 

"7 

8 FNSWCH 87 = 1+ # 


8 

TO FNSWCH SWAP DROP 


9 

BASE 5) HEX SWAP 0 


1. 0 

BEG IN 


1 1 

WRKSPC 128 4 PICK • 

; READ) 

1 2 

. >R 128 ttUNTRN - WR! 

ISPC 

13 

BEGIN 


14 

OVER 0> 7TERMINAL 

.. 0= AND 

15 


-> 
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0 < Utils; REWIND EOF 
1 

2 s REWIND DOS < 

3 BETAR6S '“'WEBARG 

4 GETVAL 1 SWAP (WIND) 

5 7SYSERR CR DSKFLS ; 

6 

7 s EOF DOS ( 

8 GETARGS 7WRGARG 

9 GETVAL 0 SWAP (WIND) 

10 2SYSERR CR DSKFLS ? 

1 1 
12 

13 

14 

15 
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0 < Utils: FDUMP > 

1 



WHILE 


‘T 

3 PICK 

FNSWCH MOD 0== 

4 

IF 


5 

CR 0 

TO TEMP 

6 

0 OUT 1 3 PICK 0 

"7 

< # # 

# # # #> 

o 

TYPE 

SPACE PSPACE 

9 

END IF 


10 

DUP C3 

0 <# # # #> TYPE 

11 

SPACE 

1 ■+• ROT 14- 

12 

ROT 1- 

ROT 1 AT TEMP i-! 

13 

OVER 0 

= 4 PICK 

14 

■i ■=; 

FNSWCH 

MOD 0= OR 
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0 ( Utilss NAMEDISK 
1 

2 s NAMEDISK DOS ( 

3 DFLUNT 1+ GETARGS 

4 IF SWAP DROP GETVAL END IF 

5 DUP 1 < OVER 4 > OR 

6 NOT BADUNT 7CMDERR 

7 1- FSM6ET FSMAP 104 + 

S CR Old: " DUP 

9 BEGIN DUP CD -DUP 

10 WHILE EMIT 1+ 

11 REPEAT 

12 DROP DUP 20 ERASE CR 

13 ." New; " 20 EXPECT CR CR 

14 1 TO 7FSMUP DSKFLS ; 

15 
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screen: 118 
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Screen: 121 
0 ( Fmtrs: 


•hove: 


1 



1 



'-y 



•y 

N 

U 

FMOVE DOS ( — 

y 



"•T 


GETARGS 7WRGAR6 

4 



4 


61 GETARG 7WRGARG 

5 



5 


0 (CLOSE) SWAP INSIN 

6 



6 


(OPEN) 2SYSERR <ROT DROP 

~r 



7 


DSKFLS INSDST DUP (ENTER) 0= 

a 



8 


IF 

9 



9 


DSKERR FLEXST = 7SYSERR 

10 



10 


END IF 

11 



11 


(OPEN) 7SYSERR SWAP DROP 

12 



12 


BEGIN 

13 



13 


INSIN PAD DUP 1 AND + 

14 



14 


TOPOM OVER •-•• 4 PICK 

15 



15 


(READ) INSDST PAD DUP 
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0 



0 

( 

Fmtrs: FMOVE 

1 



1 






r-y 


1 AMD •+• 7 APR OVER 

y % 



'T 


4 PICK (WRITE) DSKFLS 0= 

4 



4 


IF DROP (CLOSE) (CLOSE) 

5 





DSKERR CMDERR 

6 



6 


END IF 0= 

7 



"7 

/ 


UNTIL 

8 



8 


DUP (ENDF) < ROl (CLOSE) 

9 



9 


(CLOSE) 7SYSERR CR CR DSKFLS 

10 



10 



11 



11 

r, 

GETNUM ( .- n 

12 



12 


HERE 1+ 10 EXPECT HERE 1+ 

13 



13 


BEGIN DUP C5) WHILE 1+ REPEAT 

14 



14 


BL SWAP C! HERE NUMBER DROP : 

15 



15 


. 

Scree 

n; 120 


Scree 

n: 123 

0 ( 

Fmtrs; syst 

em words ) 

0 

< 

F r m t r s: s y s tern words 

1 ’ 

( FL..FL..# ) ( 70 

LOAD ) 

1 






'■y 

: 

LOCKOUT DOS ( u s cnt — 

3 n 

INSIN OR 


T 


ROT FSMGET O+S 

4 

." Insert source: < START > " 

4 


DO 

5 

BEG IN 


5 


I 1+ 8 /MOD FSMAP 10 +■ + 

6 

? TERMINAL 

1 = 

6> 


SWAP 128 

7 

UNTIL 


7 


BEGIN OVER 

8 

46 EMIT ; 


8 


WHILE 2/ SWAP 1- SWAP 

9 



9 


REPEAT 

10 s 

INSDST CR 


1 0 


SWAP DROP DUP 255 XOR SWAP 

11 

." Insert dest: < SELECT > " 

1 1 


3PICK C5) AND 0# FSMAP 3 + 

12 

BEGIN 


12 


DUP :i) ROT SWAP ! 

13 

'/’TERMINAL 

*~y _ 

13 


OVER C5> AND SWAP C! 

14 

UNTIL 


14 


LOOP 

15 

46 EMIT ; 

.- > 

15 


1 TO 7FSMUP ; 





Screen; 124 
0 ( Fmtrs: 
1 


FORMAT 


6 


8 

, '•/ 
1.0 
11 
•j p 

13 

14 


FORMAT DOS ( .- ) 

DFLUNT !+• 6 ETAR 6 S 

IF GETVAL SWAP DROP END IF 

DUP DUP 1~ TO UNIT CR CR 

.. " Format unit " . . " ? " +Y/N 

IF 

DUP WRKSPC 772 ! (FMT) 

DROP WRKSPC 128 ERASE 
2 WRKSPC C! 

WRKSPC 1 + 707 OVER ! 716 
SWAP 2 + ) 15 WRKSPC 10 + C! 

WRKSPC 11 + 89 255 FILL 
1- 720* 359 •+• 

WRKSPC OVER 0 R/W —> 
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0 ( Fmtrss system word? 


1 


4 

5 

6 

7 

8 

10 
11 
12 

13 

14 

15 


0 VARIABLE SEC/PAS 
0 VARIABLE SECNT 

s AXL.N DOS < system > 

4 PICK 0 

DO 3PICK I 128 * + 

3PICK I + 3 PICK R/W 
LOOP 2DR0P 2DROP 5 

s DCSTP DOS ( — ) 

DSKFLS TOPOM PAD DUP 1 AMD 
- - 0 128 U/ SWAP DROP 
SEC/PAS I 0 SECNT 1 ? 
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0 ( Fmtrss FORMAT 


) 


2 UNIT 359 9 LOCKOUT CR CR 

3 Disknames " 

4 FSMAP 104 + 20 EXPECT CR CR 

5 ." Lock out error screens? 1 

6 + V / N 


Screen; 128 
0 ( Fmtrss 
1 


DISKCOPY1 


DI SKCOPY 1. 
DCSTP 
BEG IN 

CR INSIN 
720 SECNT 0 



IF 

y 

DUP >R PAD DUP 

3 

UNIT 695 24 LOCKOUT 

8 

3 2DUP 5 PICK < 

9 

END IF 

O 

INSDST 0 AXLN C 

1 0 

BEGIN CR CR 

:l 0 

R> SECNT +! SEC 

11 

." Lock out sectors? " 

1 1 

." sectors copi 

:l 2 

+Y/N DUP 

1 . 2 

UN i IL. 

1 3 

IF 

1 . 3 

MTB CR 5 

14 

UN 17 CR 

14 

15 

." First sectors " -.> 

!. 5 


Sere 

en; 126 S 

creen: 129 

0 

< Fmtrs: FORMAT ) 

0 < 

Fmtrss D 1 SKCOPY 2 

1 

n 

GETMUM CR 

1 

•"? «« 

DISKCOPY 2 

3 

. " # to lock out: " 

;~r 

DCSTP 

4 

GETNUM LOCKOUT 

4 

CR n " Insert sour 

er 

V...* 

END IF 

11 

CR ." Insert dost 


0= UNTIL 

*» 

CR ." Press START 

7 

END IF 

7 

WAIT 

8 

DROP DSKFLS CR CR ; 

§ 

BEG IN 

CD 


0 

720 SECNT a SE 

1 0 

1 0 

DUP >R PAD DUP 1 

n 


1 . 1 . 

a 2DUP 5 PICK <R 

12 


.2 

1 AXLN 720 + 0 A 

13 


13 

R > SECNT +! SECN 

1 4 


1.4 

UNI IL 

15 


1 5 

MTB CR 


SEC /PAS 0 ) MIN 
"iND - SECNT 


in drive 
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0 ( +Y/N routine ) 

1 < This Y/N routine accepts upper 

2 or lower case and echos it. ) 


Screens 14b 
0 
1 


4 BASE 5) HEX 



6 s +Y/N ( — f ) 6 

7 KEY DUP DF AMD 7 

8 DUP 59 <> 8 

9 0BRANCH C 0014 , ] 9 

10 DUP 4E <> 10 

11 0BRANCH C 0008 ,3 11 

12 2DROP BRANCH C FF'DA ,3 12 

13 SWAP EMIT 59 =5 13 

14 14 

15 BASE ! 15 
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0 ( Quans TO AT 
1 

2 s TO 

3 -FIND 0" 0 TERROR DROP 

4 STATE 3 

5 IF , 

6 ELSE EXECUTE 

7 ENDIF ; IMMEDIATE 

8 

9 : AT 

10 -FIND 0= 0 TERROR DROP 

11 2+ STATE 3 

12 IF , 

13 ELSE EXECUTE 

14 ENDIF ; IMMEDIATE 

15 ( corrected ) 


S cr e e n s 14 9 s reens 152 


0 

0 

< Quans E236! 

[' ? 1 

41 


1 

1 





2! 

9 

ASSEMBLER HEX 




’T 

;~r 





4 

4 

LABEL (236) 




cr 

vJ 

A0 C, 06 C, 

B1 C, 

W 

C, 48 C, 

6 

& 

C8 C„ B1 C„ 

w c. 

4C 

C, PUSH 

•y 

8 

‘7 

8 

LABEL (2!4) 




9 

c; 

A0 C, 04 c, 

B5 C, 

00 

C; „ 91 C„ 

10 

1 0 

W C, C8 C, 

B5 C, 

0 1 

C, 91 C, 

11 

11 

W C, 4C C, 

POP , 



12 

12 





13 

1 3 





14 

14 





15 

- 15 




— 
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Sere 

tens 153 



0 < Quans ASSIGN 

•j 

) 

0 

1 

( Quans 12 

2 V 6 ! 

] 

9 


LABEL (2V6: 

) 





A0 C, 07 

C„ 

B1 C, W C, 48 C, 

4 ’ ( CFAL.IT 


4 

88 C, B1 

c. 

W C, 85 C, W C, 

5 s ASSIGN ECOMP ILET 

CFALIT ; 


68 C, 85 

c„ 

W 1 + c, 

6 IMMEDIATE .> 5 < 

) 

,£i 

A0 C, 00 

c. 

4C C, W 1- , 

~7 


7 

8 s ASSIGN 

( — cfa ) 

8 




9 STATE 3 


9 




10 [COMPILE I C 


10 




11 [COMPILE! •’ CFA 

SWAP 

11 




12 .1F II 


12 




13 END IF [COMPILE] 

LITERAL ; 

13 




14 IMMEDIATE 


1 4 




15 

— > 

15 
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0 ( Quart s 
1 


patch for CREATE 


) 


2 DCX 


4 : 

(PTCH) 

( system ) 

5 

SWAP >R R - 251 R 

= 249 R > = 

6 

OR OR 5 


7 

8 : 

PTCH 

( system ) 

9 

IF [ ’ (PTCH) CFA 

3 LITERAL 

1 Q 

ELSE C. ’ = CFA 3 

LITERAL 

11 

END IF 


12 

r ’ CREATE 63+3 

LITERAL ! ; 


13 

14 

15 
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0 < Quans QUAN VECT 
1 

2 s QUAN 

3 ON F'TCH LABEL -2 ALLOT 

4 (206) , (2!4) , 

5 C ’ VARIABLE 4 + 3 LITERAL 

6 2 ALLOT OFF PTCH ; 

7 

8 s VECT 

9 ON PTCH LABEL -2 ALLOT 

10 (2V6) „ (2!4) , 

11 c: VARIABLE 4 + 3 LITERAL 

12 C ? NOOP CFA 3 LITERAL , 

13 OFF PTCH ; 

14 

15 
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0 

( Utils: CARRAY 

ARRAY 



) 

0 

( Utils: 

XC 1 X i 


) 

1 

BASE a HEX 





l 





2 

; CARRAY 

( c c c c, n 

— 

> 


9 , 

: XC! 

( n 0 . „ „ n m c n t. 

ad dr . 

> 

«... 

CREATE SMUDGE 

( c: c: c: c;: n 


a 

) 

T. 

OVER 1- 

+ >R 0 



4 

ALLOT 





4 

DO ,7 I 

-- 0 ! 



5 

;CODE CA C, CA 

C, 18 C, 




5 

LOOP R > 

DROP ; 



6 

A 5 C, W Cj 69 

C, 02 0, 

95 

c. 


6 





"7 

00 C, 98 C, 65 

C, W 1+ C 

•• ? 



7 : 

; X ! 

( n 0 „ . .nm cnt 

ad d r . 

) 

8 

95 C, 01 C, 40 

c, 




8 

OVER 1- 

2* + >R 0 



cp 

’ + ( OFA a ) 

H --f ^ 




9 

DO J I 

2 # - ! 



10 






10 

LOOP R > 

DROP 5 



1 1 

; ARRAY 

( c; c c: c:, n 

. 

) 


1 1 




i 2 

CREATE SMUDGE 

< c c c c; n 


a 

) 

12 

( Caution 

: R e m e m b e r 1 i m i t a t i o n 


13 

2 $ ALLOT 





13 

( on stack size of 30 v 

al ues 


1 4 

5 CODE 16 0, 00 

C, 36 C, 

01 

C, 


14 

( because 

of OS conflict. ) 


15 

4C C, J CARRAY 08 + , C 




15 
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0 

< Utils: STABLE 

TABLE 



) 

0 

< Utils: 

CVECTOR VECT 

OR 

} 


; STABLE 

C t: c c: c , . 

) 



J. 

• 

: CVECTOR 

( CCCC H 

c n t . 

) 

3 

CREATE SMUDGE 

( c c: c c : n 

. 

a 

) 


CREATE 

SMUDGE ( cccc; 

n — a 

) 

4 

; CODE 





4 

HERE OV 

ER ALLOT XC 1 



r.r 

40 0, 7 CARRAY 

08 + , C; 




5 

; CODE 




6 






o 

4C 0 , ? 

CARRAY 08 + , 

C; 


?. 

: TABLE 

( cccc, — 

) 



“7 





o 

CREATE SMUDGE 

< c c c c: n 


B. 

) 

8 ; 

: VECTOR 

( c: c c: c - 

c n t — 

> 

o 

; CODE 





9 

CREATE 

SMUDGE < cccc: 

n — a 

} 


. 1 . >/j 

J 1 
12 

13 

14 


4C C. 


ARRAY 0A + , C 


10 HERE OVER 2* ALLOT X! 

11 ;; CODE 

12 4 C L , ' A K‘ R A V 0 A + , 

13 

14 BASE ! 

15 


C; 
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0 ( Utils; 

20ARRAY 

2APRAY 

) 0 

1 
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7 

8 
9 
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11 
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14 
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2CARRAY ( cccc, n n 

< BUI L.DS ( c c: c c 5 n n 

SWAP DUE ,, % ALLOT 
DOES > 

DUP >R ® % + R > + 2+ q 


2ARRAY 
< BIJILDS 
SWAP DUP 
DOES > 

DUP >R a 


( c c c: c , n n — ) 

< c c c c: n n — a ) 
* 2* ALLOT 


+ 2* R > 




8 


9 

10 
11 
12 


14 
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+ 2 + 
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Screen: 170 

0 CONTENTS OF THIS DISK: 

1 

2 Disk Operating System: 10 LOAD 

3 DOS system extensions: 50 LOAD 

4 BASIC DOS COMMANDS: 70 LOAD 

5 DOS COMMAND EXTENSIONS: 110 LOAD 

6 

7 (note the packages lower on the 

8 screen will load all packages 

9 1 i sted above themse3. ves. ) 

10 

11 DISK FORMATTEE/COPIERS: 120 LOAD 

12 GUAM STRUCTURES: 150 LOAD 

13 ARRAYS THEIR COUSINS; 160 LOAD 

14 

15 valDOS FILE EDITOR: valDOS II 


Screen: 


0 

1 


168 


Screen: 


0 

1 


171 


4 


4 

5 

6 


8 

9 

10 
11 
12 

1 3 

14 

15 


8 
9 
10 
11 
12 

13 

14 

15 



Screen 


Screens 172 
0 
1 


s 175 
0 File is too big 

1 File is random 

2 File is not random 



4 


6 


3 No room for random map 

4 Random map is bad 

5 File is a device file 

6 File is not a device file 


'? 

8 

7 Illegal access to device 

O 

9 

u 

9 

10 

10 

11 

11 

12 

12 

13 

13 

14 

14 

15 

15 
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Screen; 176 

0 

0 ( Error messages 

i 

1 

••••> 

2 S t a c k e m p t. v 

4 

4 D i c: t :i. on ar y f u 11 



... 

U 

*7 

6 Wrong addressing mode 

o 

9 

!3 Is not unique 

O 

1 0 

10 V a 1 u e e r r o r 

11 

11 

12 

12 Disk addre s s error 

•L -• 

1 3 ' 

14 

14 Stack full 

15 

15 
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S c r e e n : 17 7 


0 

( valDOS error messages 

) 0 Disk Error 1 


1 

111 eg a 1 f i. 1 en arne 

1 



B a cl / l v l i s m a t c h e d u n i t (s) 

2 Die: t i o n a r v t o < 

b i g 

3 

Bad free space map 

;t 

4 

F i 1 e a 1 r e a d y e i s t. s 

4 


5 

D i r e c: t a r v i s f u 11 

err 


6 

Disk is full 

6 


”7 

F i 1 e n a m e i s a m b i g u o u s 

7 


O 

File does not exist. 

o 


9 

Mo room for buffer 

9 


10 

End of file encountered 

10 


1 1 

File is not open 

11 


12 

111 e g a 1 f i 1 e n u m b e r 

12 


13 

File is locked 

13 


14 

Bad argument list 

1 4 


15 

File :i. s open 

15 
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0 ( Error messages ) 

1 

2 Use on1y in Definitions 

4 Execution on1y 

5 

6 Conditionals not paired 

“7 

i 

£! Definition not -finished 
9 

10 In protected dictionary 

11 

12 Use only when loading 

13 

14 Off current, screen 

15 
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u Declare VOCABULARY 
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valDOS II 
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Screen : 50 

0 (. Case Statements; CASE ) 

1 BASE 5) DCX 

3 ' ( PERMANENT PERMANENT ) ( ) 

4 ; (CASE) 

5 R CD MIN -1 MAX 2* 

6 R 3 + + 5)EX 

7 R C® 2* 5 + R > + >R 5 

9 ' ( TRANSIENT TRANSIENT ) ( ) 
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4 64 <> OR 

5 IF CBLANK OOPSV 

6 CURLN DUP MXTLN 2DUP 

7 SWAP IXTEND 3 PICK -- 2+ 

8 CMOVE - AT IXTEND +! 

9 0 TO ?MARK 6ETLN DISPLAY 

10 CURLOC C® 64 =e 

11 IF UPC! JR NORPT END IF 

12 CSHOW 1 TO 7UPDAT 

13 ELSE 

14 NORPT 

15 END IF ,5 - > 


Screen; 127 

0 < valDOS file editor 1.0 

1 

2 ; >BFNXT BFCF'Y DNCUR ; < 

4 ; >BFLN BFCF’Y LNDEL ;; ( 

5 

6 : BFRF'L ( 

7 CBL.ANK OOPSV 

8 F'BLL 2+ BQL 38 CMOVE EDMRK 

9 < BFROT CSHOW EDMRK ; 

1 0 

11 ; TABSTP ( 

12 XLDC 8 /MOD TABS + 

13 SWAP 2- OVER C® OR 

14 SWAP C! NORPT ; 

15 
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0 < valDOS file editor 1.0 ) 

1 

2 s BFSHW < .- ) 

3 F’BLL. L.I..EN 2# 2* - 

4 SBL LLEN 5 * CMOVE ; 

5 

6 ; BFROT ( ) 

'?' PBL DUP BLEU + L..MOVE 

8 PBL DUP LLEN + SWAP 

9 BEEN LLEN - CMOVE 

10 PBL.!.... LLEN + F’BLL L HOVE 

11 BFSHW ; 

1 

13 : BFCF’Y ( ) 

14 CBL.ANK BFROT BQL PBI...L 2+ 

1.5 38 CMOVE BFSHW CSHOW ; -.> 
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0 ( valDOS file editor 1.0 ) 

1 

2 ; <BFROT ( ) 


3 F’BLL DUP LLEN + I ..MOVE 

4 PBL DUP LLEN + 

5 BEEN LLEN .< CMOVE 

6 PBL DUP BLEN + 

7 SWAP L.MOVE BFSHW ; 

8 

9 : BFCLR ( ) 

10 F’BLL LLEN ERASE 

11 <BFROT a 

•f ’"3 
J. x.. 

13 ; BFLN > ( ■■— ) 

14 LNINS F’BLL 2+ BOL 38 CMOVE 

15 CSHOW < BFROT EDMRK ; .§ 
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0 ( valDOS file editor 1.0 
1 

2 ; TABCLR < - 

3 XLOC 8 /MOD TABS + 

4 SWAP 2-'" 255 XOR OVER 

5 C® AND SWAP C! NORPT ; 

6 

7 ; TAB CBLANK ( ■ 

8 38 

9 BEGIN 

10 1. 1 AT XLOC +' XLOC 

11 33 MOD 8 /MOD TABS + 

12 C® SWAP 2-'" AND OVER 0= OF 

13 UNTIL DROP XLOC 

14 33 /MOD SWAP TO XLOC 

15 IF DNCUR END IF CSHOW ; 
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0 < valDOS file editor 1.0 
1 

2 ; RUB 

3 XLOC 

4 IF LFCUR 0 CURLOC C! 

5 CSHOW EDMRK 

6 END IF 

7 INSET IF BYTBEL END IF NORF'l 

8 

9 ; BOTSCR ( - 


10 15 XLOC .DUP 

11 IF 0 DO DNCUR LOOP ENDIF ; 

12 

13 ; OOPS ( 

14 LNINS OOPSLN BOL 38 CMOVE 

15 EDMRK CSHOW NORPT $ 









Screen: 130 


0 

1 

( valDOS file editor 1.0 

) 

: PTCHR 

( ■— 

) 

“ : r 

L.STCHR 13 

= 2MUL..T I 1 < > AND 


4 

IF 



5 

1 TO F'TFLG BON XT 


6 

ELSE EDMRK 



7 

INSRT IF 

' BYTINS ENDIF 


8 

LSTCHR 

■SCD CURL DC C! 


9 

XLOC 37 

5= 


1 0 

IF 1 TO 

F'TFLG BON X T 


11 

ELSE ETCUR ENDIF CSHOW 


12 

ENDIF ; 



13 




14 

: PRVSCP 

( — 

) 

15 

#L„NS 0 DO 

ROLL.DN LOOP j 
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0 

( valDOS 

f j. 

1 e 

editor 1.0 

) 

1 







X-. 

: MXTSCR 




( — 

) 

f\ 

ttLNS 0 

DO 

ROLL 

.UP LOOP j 


5 

: SPL.CHR 




( - 

) 

6 

0 2MUL.T 

I 

0= 




"7 

IF 1+ 3 

~7 

88 

5) 

25 + Cl ENDIF 


8 

O 

TO ?MUL 

,T I 

;i 




10 

: MULTI 




( . 

) 

11 

0 7MUL.T 

1 

03= 





12 IF 2+ 57 88 o> 25 + C! END IF 

13 ID 7ML1L.T I ; 

14 

15 
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0 ( valDOS file editor 1»0 ) 

1 : SPLT ( -. > 

2 CBLANK BOL EDWRK 38 CMOVE 


3 XLOC CLREOL 1 TO F’TF'LG BON XT 

4 CBLANK TO XLOC EDWRK XL.OC ■+• 

5 BOL XLOC + 38 XL.OC •- CMOVE 

6 EDMRK CSHOW ; 

-/ 

i 

8 : —SPLT ( . ) 

9 CURLN TXTBOT <> 

10 IF CBLANK BOL EDWRK 38 CMOVE 

11 L.NDEL UPCUR CBLANK OOPSV 

12 EDWRK XLOC + BOL. XLOC + 

13 38 XLOC - CMOVE CSHOW EDMRK 

14 EDWRK OOF'SLN XL.OC CMOVE 

15 END IF NOE FT ; .-T 


Screen: 133 

0 ( valDOS file editor 1.0 ) 

1 

2 FORTH DEFINITIONS 

4 : .INFO EDITOR < -- ) 

5 CR ." File start addr: " 

6 TXTBOT DUP U. 

7 CR ." File end addr: " 

8 TXTEND 2- DUP U. 

9 CR ." File count: " 

10 SWAP - U. 

11 CR ." Bytes free: " 

12 MEMTOP TXTEND -- 

13 0 MAX U. CR ; 

14 

15 EDITOR DEFINITIONS —> 
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0 ( valDOS file editor 1.0 ) 

1 

2 : WIPEIT < — ) 

3 88 5) 40 + 640 ERASE 

4 12 84 C! 0 752 C! CR ; 

5 

6 : FLFL < — ) 

7 TXTBOT HOME ; 

8 

9 : FELL.. ( -.* ) 

10 TXTEND 2. 15 0 

11 DO PEVL.N I....OOP HOME BOTSCR ; 

12 

13 : FLEN C -- > 

14 CURLN NXTLN DUP 

15 2+ TO TXTEND 0 SWAP ! DC ; 


Screen: 135 

0 < vaIDOS file editor 1.0 ) 

1 : SRCH 

2 SRCHt> CS> 

3 IF CS CURLN XLOC + 1+ TXTEND 

4 OVER - SRCH$ COUNT MATCH SWAP 

5 IF CURLN XLOC + + DUP 

6 PRVLN DUP TO CURLN - 

7 'T'0 XLOC 0 TO YLOC CURLN 

8 >6 0 DO 

9 DUP PRVLN SWAP OVER 

10 <> AT YLOC +! 

11 LOOP TO DSPTOP GETLN DC 

12 ELSE DROP WIPEIT CR 

13 ." Not found" CRWT FLFL 

14 END IF 

15 END IF ; —> 
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0 < valDOS file editor 1.0 


GET $ 

>R PAD 2+ 

BEGIN DUP C® R 


( del m 


) 

$ ) 
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0 < val DOS f i 3. e ed i tor 1. 0 
1 


SUBCMD 
CS WIPEIT 


PAD 


ERASE 


5 

WHILE 1+ 

REPEAT DUP 

5 

PAD 

31 

EXPECT CP 

PAD ® 

h 

BEGIN DUF 

CS) DUP R < > 

6 

SEE 

( 

ST) 

21587 

--> FLST 

~7 

SWAP 0# 

AND 

7 


( 

EN) 

20037 

.> FLEN 

8 

WHILE 1 + 

REPEAT OVER - OVER 

8 


( 

FL. ) 

19526 

-> FLFL 

9 

1 - C ! 1 - 

R > DROP ; 

9 


( 

LL) 

19532 

-•••> FELL 

1 0 



10 


( 

IF) 

17993 

.> INFL 

11 s 

STSRCH 

( -- ) 

11 


( 

PS) 

-j C} 

~> STSRCH 

12 

. ? " PAD 31 EXPECT 

12 


( 

RT) 

21586 

-> TABRST 

13 

CR 88 ® 564 + BRCH$ 1+ CRAM 

13 




0 

DC 

■i ft 

J. '”l' 

1 ~ SRCHT 

C! SRCHfi 1+ DUP 

14 

NOSEL 

BADSUB 


15 

33 BSCD > 

SRC 3-1 5 .> 

15 

SELENE 

fj 
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0 ( valDOS file editor 1.0 ) 

1 

2 r. I NFL DOS < — ) 

3 INSET 0 TO INSRT 
BL GETS (OPEN) 

IF DC LNINS 

BEGIN 

?TERMINAL 22BIG OR NOT DUE 
IF DROP DUP (ROB) ENDIF 
WHILE 

DUP 155 = 

IF DROP 13 ENDIF 
TO LSTCHR FT CHE 
REPEAT (CLOSE) DROP 
ELSE OR 

. 11 U n a t) 1 e t o 3. o a d f i 1 e 11 - - > 


4 


a 

j 0 

i i 
.1 

13 

1 4 
15 


C)C Y 
0 
i 
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( valDOS file editor 1.0 


2 s EDTART ( 

3 CS WIPEIT „" Abort? " 

4 i-Y/N 19 * DUP TO LSTCHR 0== 

5 IF DC ELSE 7UPDAT 0= 

6 IF CURLN TXTBOT - TO ED#IN 

7 ELSE TXTBOT DUP TO DSPTOP 

8 TO CURLN 0 TO XLOC 0 TO YLOC 

9 END IF END IF IMORPT ; 

10 

11 • EXIT DOB ( 

12 CS WIPEIT 8 84 C! 

13 . INFO OR . " Save " 

14 EDN2$ COUNT TYPE . " ? " 

15 +Y/N 19 % DUP TO LSTCHR 


1 


‘Screen;; 138 

0 ( valDOS file editor 1.0 
CPo r WIPE I T DC 
ENDIF TO INSRT ; 

Ft. ST 


screen: 141 

0 < valDOS file editor 1.0 

1 IF EDN2T (OPEN) 0= 

2 IF 0 I)SKERR FLDNE = 

3 IF DROP EDN2$ (ENTER) 

4 DROP EDN2$ (OPEN) 


5 

CURLN TXTBOT 2 DUF' 


cr 

END IF 

/n 

1" X T END CURLN . 1 + 

CMOVE 

/j 

0 ~~ IF DC ; S END IF 

—y 

. MINUS AT TXTEND 

+i FLFL : 

~y 

/ 

END IF 

a 



8 

SWAP DROP TO EDFL# 

9 “ 

TABRST 

( . ) 

9 

TXTBOT TXTEND 2- OVER - 

10 

TABS 4 68 FILL 


10 

EDFL# (WRITE) DROP EDFL# 

11 

36 TABS 4 + C! DC 

'1 

11 

(ENDF) DROP EDFL# (CLOSE) 

12 



12 

CURLN TXTBOT - TO ED#IN 

13 ; 

BADSUB 

( . ) 

13 

ELSE:. 

14 

C37 . " Bad sub comm 

and " 

14 

DC 

15 

CRWT WIPED" DC r, 

.- > 

15 

END IF 
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0 

1 

( valDOS 

•file editor l.i 

3 ) 

0 

1 

( valDOS file editor 1.0 

.1. 

'7 

s CONTROL 



( n . ) 

1 

SWAP DROP TO EDFL# 

7; 

SEL. 




T 

0 TXTBOT 2-- ! 155 TXTBOT C 

4 

19 -■> 

EXIT 

17 •■-> 

EDTABT 

4 

TXTBOT MENTOR OVER - DUP 

5 

28 --■> 

UP CUR 

__ *•;. 

DNCUR 

5 

<ROT EDFL# (READ) 

6 

30 •--> 

LFCUR 

31 - > 

RTCUR 

6 

IF EDFL# (CLOSE) 

"7 

126 ~~> 

RUB 

•j. *7 “7 

TAB 

7 

FLTBG CMDERR 

8 

Q __ 

I NT Cl.. 

155 --> 

BON XT 

8 

END IF 

9 

255 ■•-•> 

BYTINS 

254 --> 

BYTDEL 

9 

DSKERR EOFERR = 2SYSERR 

10 

157 -•••> 

LNINS 

156 -> 

LNDEL. 

10 

EDFL# (CLOSE) 

11 

1.3 ~~> 

BF ROT 

'7 _ 

< BFROT 

11 

#UNTRN - DUP 0= + TXTBOT + 

j. 


BFCLR 

11 •••••> 

>BFNXT 

12 

DUP 2+ TO TXTEND 0 SWAP ! 

13 

20 ■•-■> 

>BFLN 

A — y 

BFL..N > 

13 

0 TO ED#IN 0 TO 7UPDAT p 

14 

16 

PRVSCR 

14 .> 

NXTSCR 

14 


15 

15 --> 

OOPS 


-;> 

15 
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0 

1 

< valDOS 

•file editor 1 „! 

0 ) 

0 ( 

valDOS file 

editor 1.0 


27 ■■■■> 

SPLCI-IR 

8 --> 

CL.REOL 

J. 

'7 , 

PROCESS DOS 

( 

7 


BF'RPL. 

25 -> 

MULT I 

7 r , 



4 

24 .> 

ROLLDN 

5 - > 

ROLLUP 

4 

0 OR. 1 752 

C! CLS 

•3 


StJBCMD 

12 ••-> 

SRCH 

5 

112 560 S) 6 

•+• C ! 


10 -> 

SPLT 


.SPLT 

6 

112 560 ® 2 

3 + C! 

7 

159 ■--> 

TABSTP 

153 •-•> 

TABCLR 

7 

. " Files " 

EDN2T 

O 

NOSEL P 

TCHR SEL 

..END ; 


8 

7 ? 1:7 1 


9 





9 

. " #Bu fs: " 

BEEN ELEN / . 

10 

s 2STR0KE 



._.... ) 

10 

GETL..N DC 


11 

'■'MULT I 

1 ® 



1 1 



4 . X.. 

IF DROP 

PTCHR 



12 

PAD 2PADSM 1 

OVER TO 2PADSM 

13 

ELSE 




13 

PBL 5) 7BUFS! 

"1 - AND NOT 

14 

?MULT 

J ^ ““ 



14 

IF PBL BEEN 

ERASE ENDIF 

15 

IF 



. > 

1 5 

BFSHW 
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0 < 

•j 

val DOS ti1e edi tor 1 „ 0 

) 

0 

( val DOS f 11 e ed i tor 1 0 


BEGIN 


J. 

BEGIN 


8 53279 C ! DUP CONTROL 


•*;l* 

INKEY* DUP TO LSTCHR -DUP 

4 

2MUL.T I NOT 7TERMINAL OR 


4 

IF 

5 

UNTIL 


5 

7MULTI 

.L 

DROP ENDIF 



IF 2STR0KE 


END IF 


’7 

ELSE CONTROL ENDIF 

8 

0 TO L.STCHR NORPT 


8 

ELSE 

9 

0 88 0 25 f C ! s 


9 

i ns fit 

10 



10 

IF CBLANK ( PAUSE) 

11 s 

EDTSTP DOS ( $0 $i .. 

) 

11 

2DUP DROP DROP CSHOW 

12 

DECIMAL. 1 PPL AG ! 


12 

END IF 

13 

PBL BLEN + U....EN - 1 - 2 + 


13 

END IF 

14 

TO TXTBOT 


1 4 

LSTCHR 19 = 

15 

EDN1$ (OPEN) 7SYSERR 

.... V 

15 

IJNTI!... 
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0 < valDOS file editor 1.0 
1 

2 0 767 C' 0 752 C! 

3 2 560 ® 6 + C! 

4 2 560 S> 23 + C! 

5 CLS OR 

6 . " Last edit, in: " EDN2T 

7 $„ CR ..INFO OR 

8 PBL ® TO 7BUFSM 

9 DBKFLS ; 

1 0 

11 
•i '1 

J. .d 

14 

15 


(” r 0 0 H S 1 4 9 

0 < valDOS file editor 1.0 ) 

1 

2 FORTH DEFINITIONS 

4 : EDIT DOS < .- ) 

5 GETARBS 2WRGAR6 

6 TOPDM 40 EDITOR TO MENTOR 

7 DOS 44 < " ,, " ) GETARG 0= 

8 IF DUE ENDIF TO NIT TO N2T 

9 0 (CLOSE) M1 $ < 20PEN > 

10 IF 

11 0= FLOPN 7CMDEPR 

12 ELSE 

13 DSLERR FLDNE = 2SYSERR 

14 
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0 ( valDOS file editor 1.0 ) 

3. 

2 CR Nlf. T„ 

3 does not. exist, create? " 

4 +Y/N NOT CR IF ; 5 ENDIF 

5 NIT. (ENTER) 2SYSERR 

6 ENDIF 

7 UNIT DIRTBL. C® ENTRY 1+ ® 

8 N2T ('-OPEN) 

9 IF 

10 0” FLOPN 7CMDERR 

11 UNIT DIRTBL C® ENTRY 1+ 3 

12 ELSE 

13 DSLERR FLDNE = 7SYSERR 0 

14 END IF 

1.5 .> 
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0 < valDOS file editor 1.0 
;!. 

2 UNIT' FSINGET 

3 FSNAP 3 + ® SWAP - DUP 20 < 

4 IF CR 

5 ." Warning, disk space " 0> 

6 IF low"' 

7 ELSE empty" ENDIF 

8 , edit?" 

9 •i-Y/N NOT CR IF ;S END IF 

10 ELSE DROP ENDIF 

11 UNIT DIRTBL C® ENTRY C® 32 AND 

12 IF CR 

13 ." File is locked, edit? " 

14 +Y/N NOT CR IF :S ENDIF 

15 END IF 
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0 ( valDOS file editor 1.0 ) 

1 

2 NIT EDITOR EONIT OVER 

3 C® I + 16 MIN CM0VIE 

4 DOS N2T EDITOR EDN2T OVER 

5 C® 1+ 16 MIN CMOVE 

6 EDTSTP 0 TO INSRT 

7 TXTBOT DUP TO DSP I OP TO CURL.N 

8 O TO XI...DC 0 TO YI...OC GETLN 

9 CR ., INFO CRWT PROCESS ; 

I ki 

II FORTH 
1 2 

13 

14 


0 ( valDOS file editor 1.0 ) 

1 

X 

2 ; LL EDITOR < .- ) 

3 EDN2T EDN1T 16 CMOVE 

4 PAD 7PADSM < > 

5 IF 0 TO XL..DC 0 TO YI...OC PBL 

6 BI...EN + L.LEN + 2+ DUP TO TXTBOT 

7 DUP TO DSl~’T OP TO CURL.N 

8 GETLN ENDIF EDTSTP PROCESS ; 

p 

10 : WHERE DOS ( .. ) 

11 FLFL# FL.RUF® -DUP 0= 

12 IF 

13 CR .. " Mo error on record..." 

14 CR QUIT 

15 END IF .> 






) 


Screens 154 

0 < valDOS -file editor 1.0 


2 0 (CLOSE) 14 + ® 

3 FLNME EDITOR EDN1$ 16 CMOVE 

4 DOS FLNME EDITOR EDN2* 

5 16 CMOVE EDTSTP 

6 1- TXT'BOT + DUP PRVLN 

7 SWAP OVER . 1- TO XLOC 

8 DUP TO CIJRLN 0 TO YLOC 6 0 

9 DO 

10 DUP PRVLN 

11 SWAP OVER <> AT YLOC +! 

12 LOOP 

13 TO DSPTOP 

14 1 TO INSET 

15 PROCESS ; 


Screen: 157 
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5 
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7 
S 
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10 
11 
12 

13 

14 

15 
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0 < valDOS file editor 1.0 
1 

2 s #BUFS EDITOR < n 

3 5 MAX 320 MIN LLEN % 

4 7 BEEN ' 0 TO 7'PADSM 

5 PEL BLEW + LLEN + 2+ 

6 DUP TO TXTBOT DUP 

7 TO DSPTOP TO CURLN 

S 0 TO XLOC 0 TO YLOC ; 

o 

10 FORTH 

11 

12 BASE 1 
1 3 

14 

15 
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158 


4 


6 

7 

8 
9 


10 
11 
12 

13 

14 

15 
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8 
9 
10 
1 1 
12 

13 

14 

15 


Screen: 
0 

1 


159 


4 


6 


53 

9 

1.0 

1 1 
12 

13 

14 

15 
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Screen ;; 160 

0 < file editor load message 
1 

2 CLS 

3 CR CR CR 

4 . ” valDOS and the basic DOS" CR 

5 " commands must be loaded" CR 

6 „".before the file editor" CR 

7 . 11 is compiled." CR 

8 CR 

9 „" Insert the valDOS I disk" CR 

10 »" and load the necessary" CR 

11 ." routines." CR 

12 CR CR 

13 FLUSH 

14 

15 


Screen: 163 
0 
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4 

cr 

6 

7 

5 
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10 
11 
12 

13 

14 

15 


Screen: 161 
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Screen; 
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164 


4 





4 

* J 
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8 
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10 
11 
12 

14 
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11 
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13 

14 

15 
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Screen; 
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Screen: 
0 
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Screen: 
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14 
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Scr een: 167 Screen: 170 


0 

0 

CONTENTS OF THIS DISK: 


1 

1 



2 


CASE STATEMENTS: 

50 LOAD 



SCREEN CODE CONVERSION; 

60 LOAD 

4 

4 

KEYSTROKE WORDS: 

70 LOAD 

5 


DOS FILE EDITOR 1.0: 

100 LOAD 

6 

6 



7 

g 

~r 

/ 

o 

**** CAUTION **** CAUT 

ION %%%% 

9 

o 

9 

This is a DOS format disk 

10 

1 0 

with screens 50-79 and 

100-179 

11 

1 .1 

locked out for FORTH s 

ource 

12 

12 

code. Do not store FOR 

TH 

13 

13 

code on screens that are not 

14 

14 

locked out 1 


15 

15 
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Screen: 171 


1 

V.) 

1 


o 












i!j. 

4 



c;; 



V_1 


•f:> 

6 


7 

“7 


R 

8 


9 

9 


10 

10 


11 

1 1 


12 

12 


13 

13 


14 

14 


15 

15 
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8 
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1 0 

1 1 
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Screens 175 

0 File is too big 

1 File is random 

2 File is not random 

3 Mo room for random map 

4 Random map is bad 

5 File is a device file 

6 File is not a device file 

7 Illegal access to device file 

8 
9 

10 
11 
12 

13 

14 

15 


S c r e e n17 3 S c reens 1 7 6 


0 

0 

< Error messages 

1 

1 


'".'1 

o 

Stack empty 

4 

4 

D i c: t i o n a r y f u 1 1 

5 

5 


£> 

6 

“7 

Wr ong ad d r essing m a d e 

3 

8 

Is not unique 

9 

9 


1 0 

10 

Value error 

11 

11 


12 

12 

Disk address error 

1 3 

13 


14 

14 

Stack full 

15 

15 
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0 < valDOS error messages 

1 IIlega1 filen a me 

2 E< a d / M i s m a t c h e d u n i t ( s) 

3 Bad free space map 

4 Fi 1 e a 1 ready ex i sts 

5 D i r e c t o r y i s f u 11 

6 Disk is full 

7 Fi1ename is ambiq uous 

8 File does not exist 

9 Mo room for buffer 

10 End of file encountered 

11 File is not open 

12 111 e g a 1 f i 1 e n u m b e r 

13 File is locked 

14 B a d a r g u m e n t 1 i s t 

15 File is open 


Screen: 177 
) 0 Disk Error! 

1 

2 D i c t i o n a r y t o o b i g 
4 

n- 

6 

7 

C! 

l_.' 
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10 
11 
12 
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14 

15 


Screen: 178 

0 ( Error messages 
1 

2 Use on1y in Definitions 

4 Execution on1y 

5 

6 Conditionals not paired 

8 Definition not finished 

9 

10 I n pr ot.ec: t ed d i c t i onar y 
1 1 

12 Use only when loading 

14 Off current screen 

15 
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0 Declare VOCABULARY 
1 


HANDY REFERENCE CARD 
valFORTH SOFTWARE SYSTEM 


va/0=D@§ 


Command 

Words 

CLOSE 

Release file buffer and update file. 

CLOSE (filenum) 

COPY 

Transfer one or more file to another file. 

COPY outfile(/A)=infilel(,infile2(,...)) 


/'A = append file(s) to outfile. 

DIR 

Display list of files on disk. 

DIR (filespec) 

DIR unit 

DISKCOPYn 

Copy an existing diskette to another diskette. 

DISKC0PY1 single-drive copy 

DISKC0PY2 multi-drive copy 

EDIT 

Edit a (FORTH) source file. 

EDIT infile(,outfile) 

ENDFIL 

Mark the current position within an open file as the end of 
that file. 

ENDFIL filenum 

EOF 

Position the file cursor at the end of the file. 

EOF filenum 

ENTER 

Enter a filename into a disk directory. 

ENTER filename 

FDUMP 

Perform a hex/ASCII dump of a file, 8 bytes/line. 

FDUMP filename(/W) 

/W = dump in 16 bytes/line format. 

FILE-1T 

Transform screen format to DOS file format. 

FILE-IT lstscrn,lastscrn,filename 

FLOAD 

Compile a FORTH source file from disk. 

FLOAD filename(/C) 

FLOAD filename(,1inenum) 

/C = continue load from last line edited. 

FMOVE 

Single drive interdisk file transfer 

FMOVE outfile=infile 

FORMAT 

Format a diskette for use. 

FORMAT (unit) 

FSPACE 

Move through a file relative to the current file position. 

FSPACE filenum,count 

KILL 

Remove a file from the directory. 

KILL filespecl(/N)(,filespec2(/N)(t...)) 

/N = no verification message on wild-card names. 

LOCK 

Write and modify protect files on disk 

LOCK filespecl(/N)(,fi1espec2(/N)(,...)) 

/N = no verification message on wild-card names. 

NAMEDISK 

Name a diskette. 

NAMEDISK (unit) 

OPEN 

Open a file for access. 

OPEN filename 

OPEN? 

List all files currently open. 

OPEN? 

PRINT 

Display a text file on the current output device. 

PRINT filename (/N){,1inenum) 

/N = no line numbers. 

READ 

Read a file into memory. 

READ filename,address!.count) 

READ filenum,address!.count) 

RENAME 

Rename a file. 

RENAME newname=oldname 

REWIND 

Reposition the file cursor to the beginning of the file. 

REWIND filenum. 

SETUNIT 

Set the default unit. 

SETUNIT unit 

UNLOCK 

Unprotect a file so that it may be modified. 

UNLOCK fi1espec1(/N)(,filespec2(/N)(,...)) 

/N = no verification message on wild-card names. 

WRITE 

Write an area of memory to a file. 

WRITE filename,address,count 

WRITE filenum,address,count 

System Words 

(?0PEN) 

$ —- (f l)/0 

This command checks to see if the specified file is currently open 
If an error occurs, a zero is returned, otherwise a flag and a one 
are returned. If the flag is one, the file is open, otherwise it 
is closed. 

(CLOSE) 

fl# — 

The file whose file access number is "fl#" is closed for access. 

If "fl#" is 0, all open files are closed. 

(ENDF) 

fl# — f 

The current cursor position within the file is made the end of the 
file. All data past the cursor is lost, and disk space reclaimed. 
A one indicates that no errors occurred. 

(ENTER) 

S — f 

The filename on the top of stack is entered into the directory on 
the unit specified within the filename. If no unit is given, the 
default unit is assumed. A one is returned if there was no error, 
else zero. 

(KILL) 

S — f 

The specified filename is removed from the directory on the unit 
specified within the filename. A one is returned if there was no 
error, else zero. 

(LOCK) 

$ — f 

The specified file is locked, thus preventing any modification to 
that file. A one is returned if there was no error, else zero. 

(OPEN) 

$ —- (addr fl# l)/0 

Opens the specified file. If an error occurs, a zero is returned, 
otherwise the buffer address, the file access number, and one are 
returned. 

(RDB) 

fl# — (b l)/0 

The next byte of the file whose access number is "fl#" is read. 

If there was no error, the byte is returned along with a one, 
otherwise only a zero is returned. 

(READ) 

addr count fl# —- f 

The next "count" bytes of the file whose file access number is 
"fl#" are written to the block of memory specified by "addr". 

A one is returned if all went well, otherwise a zero is returned. 

(REN) 

$n $o —- f 

The file whose name is "So" is renamed to "$n". A one is returned 
if no error occurred. 


(SPACE) 

(UNLOCK) 

(WIND) 

(WRB) 

(WRITE) 

CHKDIR 

FLBUFO 


FNCON 

FNFLD 


cnt fl# — f 

The file cursor of the specified file is moved relative to its 
current position by the signed value specified by "cnt". A one 
is returned if there was no error, otherwise zero is returned. 

S — f 

The specified file is unlocked, allowing the file to be modified 
or killed. A one is returned if there was no error, else zero, 
n fl# — f 

If n is one, the file whose access number is "fl#" is rewound so 
that it may be completely re-read. If n is zero, the file cursor 
is moved to the very end of the file. A zero is returned if there 
was an error, otherwise a one is returned, 
b fl# — f 

The byte "b" is written to the file whose access number is "fl#". 

A one is returned if there was no error, otherwise a zero is returned, 
addr count fl# --- f 

The block of memory "count" bytes long at the specified address is 
written to the file whose file access number is "fl#". A one is 
returned if all went well, otherwise a zero is returned. 

— n 

Returns the number of occurrences that the last filename converted 
by FNCON (below) appears in the directory of the unit specified in 
the filename, 
fl# — addr 

Returns the address of the 16 byte information block of the file 
whose access number is "fl#". This block contains the following 
information: 


addr+0: 

addr+1: 

addr+3: 

addr+5: 

addr+7: 

addr+8: 

addr+9: 

addr+10: 

addr+11: 

addr+13: 

addr+14: 

addr-128: 


File status byte 

Current size of file. High bit set indicates 
that the file is updated. 

First (DOS) sector of file. 

(FORTH) sector currently in file buffer. 
Number of bytes into current sector. 

Unit associated with the file. 

Entry number in the directory. 

Non-zero = current sector is updated, 
(reserved for) Current random block 
(reserved for) Random block updated? 

Number bytes into the file. (2 bytes) 

Address of file buffer 


( $ - f ) 

Convert a filename to directory format. Returns true if the 
filename is legal, else zero. 

— addr 

Returns the address of the eleven byte formatted filename 
produced by FNCON. 


System QUANS 

GENTRIES —- n 

Returns the number of entries that matched the filename last checked 
by CHKDIR. CHKDIR returns this value automatically. 

#FREE — n 

Returns the number of free directory entries in the directory last 
checked by CHKDIR (below). 

#UNTRN — n 

Returns the number of bytes left untransferred in the last read or 
write operation. Usually returns zero unless an error or eof 
occurred. 

?WILD — f 

Returns a one if any wild cards appeared in the last filename 
converted by FNCON, otherwise it returns a zero. 

DFLUNT — n 

Returns the current default unit. 

0 = Atari DOS drive 1. 

DSKERR — n 

Returns the error number of the last reported DOS error. See list 
of error names. 

FNSWCH — c 

Returns the ASCII code for the switch "/c" found in the last 
filename converted by FNCON. If no switch was found, this returns 
zero. 

UNIT — unit 

Returns the unit number specified by the last filename sent to 
FNCON. If no filename was present in the specification, the 
default unit is returned. Note that DOS drive 1 is FORTH drive 0. 
UNIT returns the FORTH drive value. 


System Errors (constants) 

AMBNME — - n 


BADFl# 

BADNME 

BADUNT 

BADFSM 

DIRFUL 

DSKFUL 

EOFERR 

FLDNE 

FLEXST 

FLNOPN 

FLOPN 

FLTBG 

FLWRPT 

TMFOPN 

WRGARG 


Ambiguous filename (no wild cards allowed). 

— n 

Bad file access number. 

— n 

Bad/illegal filename. 

— n 

Bad unit specification. 

— n 

Bad free space map. 

— n 

Directory full. 

— n 

Disk is full. 

— n 

End of file reached. 

— n 

File does not exist. 

— n 

File already exists. 

— n 

File is not open. 

— n 

File is open. 

— n 

File is too big. 

— n 

File is write protected (locked). 

— n 

Too many files open. 

— n 

Wrong/no arguments given. 
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File Editor Command Summary 

Below is a quick reference list of all the commands which the video 
editor recognizes. 

Entering the Edit Mode (executed outside of the edit mode) 


EDIT 

LL 

WHERE 

=BUFS 


infile(,outfile) ( 

Enter the edit mode and edit "infile". If "outfile" is 
specified, send edited text to "outfile", otherwise send 
it to "infile". 


Re-edit the last file edited. 


( 


Enter the edit mode and position the cursor over the 
word that caused a compilation error. 

( “lines — ) 

Sets the length (in lines) of the storage buffer. 

The default is five. 

Cursor Movement < issued the ed1t mie) 

Ctrl t Move cursor up one line, scrolling the file down one line 

if necessary. 

Ctrl ^ Move cursor down one line, scrolling the file up one line 

if necessary. 

Ctrl Move cursor left one character, wrapping to the right edge 

if moved off the left. 

Ctrl -» Move cursor right one character, wrapping to the left edge 
if moved off the right. 

RETURN Position the cursor at the beginning of the next line. Insert 

line if at the end of the file. 

TAB Advance to next tabular column. 

Ctrl TAB Clear tab stop at current cursor location, 
shift TAB Set tab stop at current cursor location. 

Editing Commands (i5Sued " ithin the edlt mode) 

Insert one blank at cursor location, losing the last character 
on the line. 

Delete character under cursor, closing the line. 

Insert blank line above current line. 

Delete current cursor line, closing the file. 

Insert blank line below current line. 

Toggle insert-mode/replace-mode. (See full description 
of Ctrl-I). 

Delete last character typed, if on the same line as the cursor. 
Erase to end of line (Hack). 

Enter the subcommand mode, (see below) 

Buffer Management ‘ i5 - ued wUhi " the ed1t mode! 

Ctrl T Delete current cursor line sending it to the edit buffer for 
later use. 

Ctrl F Take the current buffer line and insert it above the current 
cursor line. 

Ctrl K Copy current cursor line sending it to the edit buffer for 
later use. 

Ctrl U Take the current buffer line and copy it to the current 
cursor line. 

Ctrl R Roll the buffer making the next buffer line current. 

Ctrl B Roll the buffer backwards making the previous buffer line 

on the screen current. 

C Clear the current buffer line and performs a ctrl-B. 

The current buffer line is last line visible on the video display. 

(issued within the edit mode) 


Ctrl 

INS 

Ctrl 

DEL 

shift 

INS 

shi ft 

DEL 

Ctrl 

M 

Ctrl 

I 

BACKS 

Ctrl 

H 

Ctrl 

V 


Ctrl 

Note: 


Scrolling/Saving 

Ctrl X Scroll the edit window up a line within the file. 

Ctrl E Scroll the edit window down a line within the file. 

Ctrl P Scroll the edit window up 16 lines within the file. 

Ctrl N Scroll the edit window down 16 lines within the file. 

Ctrl S Save the changes made to the current file and exit the edit mode. 

Ctrl Q Quit the edit session forgetting all changes made to the current 

file. 


Special Keys 


(issued within the edit mode) 


ESC Do not interpret the next key typed as any of the commands above. 

Send it directly to the screen instead. 

Ctrl J Split the current line into two lines at the point where the 

cursor is. 

Ctrl G Splice (unsplit) the current line with the line above it. 

Ctrl 0 Corrects any major editing blunders. 

Ctrl L Continue searching for the pattern entered in the subcommand mode. 

Ctrl Y Enter the repeat mode. The next command or character typed will 

be repeated until a stop condition is met, or until a console key 
is pressed. Used mostly with ctrl-P, ctrl-N, and the cursor 
commands. 


Subcommands 

ST <return> 


(entered in the subcommand mode) 
(i.e., hack off 


Make the current line the start of the file, 
the beginning) 

EN <return> Make the current line the end of the file, (i.e., hack off 
the end) 

FL <return> Position the cursor on the first line of the file. 

LL <return> Position the cursor on the last line of the file. 

RT <return> Reset the TAB stops to their original settings. 

PS <return> Enter the pattern search submode. The user will be prompted to 
enter the search string. The ctrl-L command will continue the 
search. 

IF filename <return> 

Insert the specified file into the file just after the current 
cursor line. This is useful for pulling subroutines from another 
file. This can be stopped at any time by pressing a console key. 
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